ValidateEdit zur Laufzeit Eigenschaft DisplayFormat zuweisen

[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