Format numbers in result log in regional format

This commit is contained in:
Ansgar Becker
2009-11-19 19:51:36 +00:00
parent 786c5becfd
commit 8fbc923828

View File

@ -511,7 +511,10 @@ begin
while not Results.Eof do begin while not Results.Eof do begin
Row := TWideStringlist.Create; Row := TWideStringlist.Create;
for i:=0 to Results.ColumnCount-1 do begin for i:=0 to Results.ColumnCount-1 do begin
Row.Add(Results.Col(i)); if Results.DataType(i).Category = dtcInteger then
Row.Add(FormatNumber(Results.Col(i)))
else
Row.Add(Results.Col(i));
end; end;
FResults.Add(Row); FResults.Add(Row);
Results.Next; Results.Next;