Query Run Time Field DisplayFormat
Unit uses add
Data.DB,
procedure Form1.UniButton1Click(Sender: TObject);
begin
with Query1 do
begin
Close;
SQL.Clear;
SQl.Add('Select * from Table');
open;
end;
TFloatField(Query1.FieldByName('FieldName')).DisplayFormat :='###,###';
if not Query1.IsEmpty then
begin
UniDBGrid1.DataSource := DataSource1;
end
else
begin
UniDBGrid1.DataSource := nil;
end;
end;