Add missing comma at first exported cell. Fixes issue #1422

This commit is contained in:
Ansgar Becker
2009-10-30 07:16:03 +00:00
parent cb1b7b0c21
commit 17648df114

View File

@ -708,7 +708,7 @@ begin
Query := Mainform.Connection.GetResults( 'SHOW FIELDS FROM ' + sourceMask(checkListTables.Items[i]));
for k:=0 to Query.RecordCount-1 do
begin
if k>1 then
if k>0 then
columnnames := columnnames + ', ';
columnnames := columnnames + destMask(Query.Col(0));
Query.Next;