TInteger-/TStringField zur Laufzeit erzeugen

[Nalincah]

Zitat von woki:

Hi,


ein kleiner Hinweis:
wenn in der IDE mit dem Feldeditor keine persistenten Felder erzeugt werden, werden die zur Laufzeit dynamisch automatisch beim Offnen des Dataset, (TTAble, TQuery etc) erstellt.
Eigentlich muß man da von Hand nichts machen.


Grüsse
Woki

Jo, Danke. Hat mir weiter geholfen.

Leider hab ich noch ein Problem mit den Maske:

Delphi-Quellcode:

if (Tabelle.FieldByName(FeldName).DataType = ftInteger) or
  (Tabelle.FieldByName(FeldName).DataType = ftSmallint) or
  (Tabelle.FieldByName(FeldName).DataType = ftLargeInt) or
  (Tabelle.FieldByName(FeldName).DataType = ftBCD) or
  (Tabelle.FieldByName(FeldName).DataType = ftWord) or
  (Tabelle.FieldByName(FeldName).DataType = ftFloat) then
begin
  // Maske auf das Feld legen (Zum formatieren numerischer Felder)
  if GridFelder.FieldByName('FORMATIERUNG').AsString <> '' then
    TNumericField(Tabelle.FieldByName(FeldName)).EditFormat := GridFelder.FieldByName('FORMATIERUNG').AsString;
end;

Leider wird nichts formatiert

Der soll bei allen numerischen Feldern gucken ob in der Tabelle "Gridfelder" im Feld "FORMATIERUNG" ne Maske drin steht (0.00#.##) und wenn ja, diese Maske auf das Feld anwenden. Aber leider steht da nur z.b. "304" anstatt "304.00".