ValidateEdit zur Laufzeit Eigenschaft DisplayFormat zuweisen

[Sharky]

Zitat von Rolf Rostig:

... Mir war gar nicht klar, das hinter dfCurrency ein Integerwert steckt.

Hai Rolf,

am einfachsten kann man das erkennen wenn man einfach bei getrückter Strg-Taste mit der Maus auf den Wert geht, die rechte Maustaste drückt und dann "Deklaration suchen" auswählt.

In diesem Fall hättest Du dann gesagt das hinter TJvValidateEditDisplayFormat ein Aufzählungstyp steckt. Alles was dort dann deklariert ist wird von Delphi einfach mit 0 beginnend gezählt (Über die Funktion Ord bekommt man die "Position" in dem Aufzählungstyp.

Delphi-Quellcode:

type
  mydemoTyp = (blubb,meow,delphipraxis);

procedure TDemoForm.btn_DemoClick(Sender: TObject);
var
  foo : myDemoTyp;
begin
  foo := blubb;
  ShowMessageFmt('blubb ist Eintrag Nummer %d',[Ord(foo)]);
  foo := delphipraxis;
  ShowMessageFmt('delphipraxis ist Eintrag Nummer %d',[Ord(foo)]);
end;