Editfeld begrenzen

[Daniel B.]

hallöchen..

ich hoffe das mir jemand helfen kann.. wie kann ich in eine editfeld nur die zahlen 0 bis 103 eingeben kann.. es sind nur zahlen zulässig.. das wurde schon verwirklicht.. aber das begrenzen schaff ich nicht.. vielen dank schonmal und noch schöne feiertage..

mfg daniel

[Frank Speelmans]

Hallo daniel,

ich gehe davon aus, das es sich nicht um ein datenbankfeld handelt, sondern um ein einfaches editfeld. In der OnExit kannst du prüfen ob der eingegeben Wert in dem gewünschten bereich liegt :

prosedure editfeldonexit(sender : Tobject);
var
wert : integer;
begin
wert := StrToInt(editfeld.text);
IF wert < 0 or wert > 103 then
begin
editfeld.text := '';
ShowMessage('Es sind nur Eigabewerte zwischen 0 und 103 gültig')
end;
end;

ich hoffe ich konnte dir helfen.
Frank

en