integer überprüfen

[Nisbo]

@ alcaeus

schicke mir mal dein Delphi dann schaue ich auch in dei OH rein, habe doch Lazarus
gesucht habe ich bereits:

invalid integer 2147483647 pascal
integer überprüfen pascal

hatte ja nix gebracht

Kiste's Lösung war der Schlüssel wie ich es jetzt gelöst habe

Delphi-Quellcode:

procedure TForm4.Button2Click(Sender: TObject);
var
  hh, mm, ss  : cardinal;
  UnixZeit    : integer;
  Ausgabe     : integer;
  s           : string;
  t           : string;
  
const
  FirstOf1970 = 25569;

begin
   if Edit1.Text = '' then Edit1.Text := '0';

   try
      UnixZeit := strtoint(Edit1.Text);
   except
      ShowMessage('Hier darf nur eine gültige UNIX-TimeStamp eingegeben werden!');
      Edit1.SetFocus;
      UnixZeit := 0;
   end;

   if UnixZeit < 0 then
      begin
           ShowMessage('Hier darf nur eine gültige UNIX-TimeStamp eingegeben werden!');
           UnixZeit := 0;
           Edit1.SetFocus;
      end;
   
   hh         := UnixZeit mod 86400;
   mm         := hh mod 3600;
   hh         := hh div 3600;
   ss         := mm mod 60;
   mm         := mm div 60;
   Ausgabe    := (UnixZeit div 86400) + FirstOf1970;
   t          := timetostr(EncodeTime(hh, mm, ss, 0));
   s          := FormatDateTime('dddd", " dd. ' +  'mmmm yyyy "-" ' + t + ' "Uhr"',Ausgabe);
   Edit2.Text := s;
end;

vielen Dank für die Hilfe