Grid - Zahlen dynamisch formatieren

Alan Lloyd

2013-06-01 07:18:10 UTC

Nicholas

Ich habe nur ein bischen deutsch <g>

I think I understand your problem, but (as I see it in Delphi 5 Help)
TField.DisplayLabel is a mask for input controlling what a user can input,
not for output. And basically you're operating with a TField (from your
Find()) which does not have a user-definable text formatter.

You get a TField returned by FindField() which does not have a method to
format the data. But your field is most likely actually a TFloatField which
is descended from TField via TNumericField. TNumericField _does_ have a
published DisplayFormat property (which descends to TFloatField) and so it
is accessible from _your_ sSpaltenName field by typecasting.

To get access to the TFloatField properties you must typecast Field to a
TFloatField. But to protect your program against the faint possibility that
Field is not a TFloatField you should code :

if (Field is TFloatField) then
TFloatField(Field).DisplayFormat := '#,##0.00';

Or you can do this check at the top of your code :

if (Field is TFloatField) then begin // nil is not a TFloatField either
TFloatField(Field).DisplayFormat := '#,##0.00';
Field.DisplayLabel := . . . etc

Alternatively you can use the "as" operator in a "try . . . except"
statement and catch the error with appropriate code.

Another alternative is to write an OnGetText handler.

If this is not clear as English perhaps you can get a colleague to
translate.

Alan Lloyd

Post by Nicolas Bronke
Eigentlich dachte ich das formatieren in einem TDBGRID ist nicht das
field := sqlInfo.FindField(sSpaltenName);
if field<>nil then begin
Field.DisplayLabel := sDisplaylabel;
Field.DisplayWidth := nWidth;
Field.EditMask := sFormat;
//
Field ist TField. Ich übergebe in Sformat z.B. #,##0.00 um Zahlen
entsprechend zu formtieren. Aber das klappt leider nicht. Im Grid bleiben
die Zahlen unformatiert.
Halt jemand eine Idee?
Es geht um Dedlphi 5
Grüße
Nicolas