Jetzt komme ich irgendwie nicht weiter. Die Funktion sieht jetzt so aus:
Delphi-Quellcode:
function TForm1.CheckInput : boolean;
begin
if Edit15.Text = '' then
begin
Edit15.Text := '--.00:00';
Result := false;
end
else
Result := true;
try
if (StrToInt(Edit16.Text)< 200) and not (StrToInt(Edit16.Text)= 0)then
begin
MessageDlg(' Guthaben muss zwischen 200 und 999 oder bei 0 liegen! ' + #13#10 +
' Bitte korrigieren Sie die Eingabe! ', mtError, [mbOK], 0);
ActiveControl := Edit16;
Result := false;
end
else
Result := true;
except
on EConvertError do
Edit16.Text := '000';
end;
try
if not (StrToInt(Edit19.Text) in [05..99]) then
begin
MessageDlg(' Die SMS-Wiederholzeit muss zwischen 05 und 99 liegen! ' + #13#10 +
' Bitte korrigieren Sie die Eingabe! ', mtError, [mbOK], 0);
ActiveControl := Edit19;
Result := false;
end
else
Result := true;
except
on EConvertError do
Edit19.Text := '05';
end;
end;
Der Aufruf erfolg so:
Delphi-Quellcode:
begin
if (CheckInput = false) then
begin
if SaveDialog1.Execute then
begin ...............
Leider klappt es nicht so wie es soll! (klappt nur im Edit 16)
Wo liegt der Fehler?
