Hallo, ich habe mir eine procedure geschireben, mit der ich ein edit-Feld auf seinen Inhalt prüfen kann.
Wenn der Inhalt inkorrekt ist, soll dieser gelöscht werden. Er wird aber nicht gelöscht, alles andere funktioniert ohne Probleme.
Wäre super wenn ihr mir helfen könnt!
Gruß cRayZo
Delphi-Quellcode:
procedure intcheck(LabelName:string);
var
i: integer;
begin
for i := 1 to length(LabelName) do begin
if not (LabelName[i] in ['0','1','2','3','4','5','6','7','8','9']) then begin
showmessage('ungültiges Zeichen');
LabelName:=''; //<--- diese Zeile funktionier nicht
exit;
end;
end;
if LabelName='' then exit else
if strtoint(LabelName)>15 then begin
showmessage('bitte Zahlen bis 15 eingeben');
LabelName:=''; //<--- diese Zeile auch nicht nicht, ansonsten alles paletti
exit; end;
end;