AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

integer überprüfen

Ein Thema von Nisbo · begonnen am 11. Mär 2005 · letzter Beitrag vom 11. Mär 2005
 
Nisbo

Registriert seit: 10. Mär 2005
191 Beiträge
 
Delphi 5 Standard
 
#4

Re: integer überprüfen

  Alt 11. Mär 2005, 10:47
@ 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
Jens
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 22:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz