Hey,
folgenden Ansatz haben wir verfolgt:
1.) Schleife über alle Felder des Grids
2.) CASE-Anweisung für alle Datatypes:
case aTable.Fields[i].DataType of
3.) pro DataType das gewünschte DisplayFormat setzen
TCurrencyField(aTable.Fields[i]).DisplayFormat:=
nochmals als Codesnippet:
Delphi-Quellcode:
for i := 0 to aTable.FieldCount -1 do
begin
case aTable.Fields[i].DataType of
...
ftCurrency:TCurrencyField(aTable.Fields[i]).DisplayFormat := ...
...
end;
end;
Hoffe, das hilft dir weiter.
gruß, Helld