ValidateEdit zur Laufzeit Eigenschaft DisplayFormat zuweisen

[Rolf Rostig]

Hallo,

ich möchte zur Laufzeit der Komponente JvValidateEdit die Eigenschaft DisplayFormat zuweisen, so geht´s nicht:

Code:

JvValidateEdit1.DisplayFormat := 'dfCurrency';

Wer hat für mich die Lösung?

[marabu]

Lass die Apostrophe weg, Rolf.

Grüße vom marabu

[Rolf Rostig]

Danke, das war ja einfach.

Aber ich stehe immer noch auf dem Schlauch.
Den Wert für DisplayFormat hole ich aus einer DB.

Delphi-Quellcode:

with myQuery do
...
for i := 1 to 25 do
 TJvValidateEdit(myForm1.FindComponent('JvValidateEdit' + IntToStr(i))).DisplayFormat:=          TJvValidateEditDisplayFormat(Fields[i]);
...

Es gibt keine Fehlermeldungen.
Aber es funktioniert nicht. Ich kann während der Laufzeit auch keine Daten in die Edits eingeben.

[marabu]

Diesmal hast du etwas weg gelassen und ich habe es hinzugefügt:

 ....DisplayFormat := TJvValidateEditDisplayFormat(Fields[i].AsInteger); marabu

[Rolf Rostig]

Das geht leider auch nicht. In meinem DB-Textfeld steht ja z.B. dfCurrency.
Also bekomme ich die Fehlermeldung: dfCurrency ist kein gültiger Integerwert.

[marabu]

Hallo Rolf,

hast du denn den Namen der Konstante in der Datenbank verewigt? Das ist sehr ungewöhnlich. Normalerweise speichert man Zahlenwerte, die sich dann viel leichter handhaben lassen. Wenn du das ändern kannst, dann solltest du das tun. Wenn nicht, dann musst du jetzt aus dem String 'dfCurrency' wieder einen passenden Zahlenwert erzeugen:

Delphi-Quellcode:

{
type
  TJvValidateEditDisplayFormat = (dfAlphabetic, dfAlphaNumeric, dfBinary,
    dfCheckChars, dfCurrency, dfCustom, dfFloat, dfHex, dfInteger,
    dfNonCheckChars, dfNone, dfOctal, dfPercent, dfScientific, dfYear);
}

uses
  JvValidateEdit;

function StrToDisplayFormat(s: string): TJvValidateEditDisplayFormat;
begin
  s := Lowercase(s);
  if s = 'dfalphabetic' then Result := dfAlphabetic else
  // ... fill in the blanks
  if s = 'dfcurrency' then Result := dfCurrency else
  // ... else
  Result := dfYear;
end;

marabu

[Rolf Rostig]

Hallo marabu,

vielen Dank für deine Hilfe.

Mir war gar nicht klar, das hinter dfCurrency ein Integerwert steckt.
Ich stelle es jetzt in der DB um, das ist einfacher.

[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;