benutze bitte die codetags.
Benutze doch die Delphi Funktionen für die Datumprüfung.
Das ist kürzer und du brauchst dein Grips nicht für sowas banales verschwenden.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
d: TDate;
t,m,y: word;
begin
try
d:=EncodeDate(
strtoint(edt_jahr.text),
strtoint(edt_monat.text),
strtoint(edt_tag.text)
);
inc(d);
DecodeDate(d, y,m,t);
caption:=Format('%d %d %d',[t,m,y]);
except
MessageDlg('Unsinn', mtError, [mbOK], 0);
end;
end;
edit: inc(d) vergessen
Willkommen in der
DP