Zitat:
Original geschrieben von alexalfeld
dauert sowas eigentlich lange, oder wie geht man da überhaupt vor??
|
Hmm, lange das kommt auf den Umfang der Anwendung an.
Für dieses Programm habe ich etwa eine Stunde gebraucht.
Hier der Code:
<blockquote><pre><font face="verdana,arial,helvetica"size="1"class="sf">C ode</font><hr><font face="verdana,arial,helvetica"size="2"class="sf">i mplementation
{$R *.dfm}
procedure TForm1.GetUpTime;
var jetzt: integer; // Zeit in Millisec seit Rechnerstart
rest: integer; // Hilfsvar
Tage: integer; // Anzahl Tage
Stunden: integer; // Anzahl Stunden
Minuten: integer; // Anzahl Minuten
Sekunden: integer; // Anzahl Sekunden
const Tagsec = 86400; // Sekunden pro Tag
const Stdsec = 3600; // Sekunden pro Stunde
const Minsec = 60; // Sekunden pro Minute
const Secsec = 1;
begin
jetzt:= GetTickCount div 1000; // Millisec nach Sek.
Tage:= 0;
Stunden:= 0;
Minuten:= 0;
Sekunden:= 0;
Tage:= jetzt div Tagsec;
rest:= jetzt - Tagsec * Tage;
Stunden:= rest div Stdsec;
rest:= rest - Stdsec * Stunden;
Minuten:= rest div Minsec;
rest:= rest- MinSec * Minuten;
Sekunden:= rest div Secsec;
Edit1.Text:= IntToStr(Tage);
Edit2.Text:= IntToStr(Stunden);
Edit3.Text:= IntToStr(Minuten);
Edit4.Text:= IntToStr(Sekunden);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
GetUpTime;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetUpTime;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if(CheckBox1.Checked) then
begin
Timer1.Enabled:= True;
Button1.Enabled:= false;
end
else
begin
Timer1.Enabled:= false;
Button1.Enabled:= True;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
GetUpTime;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
AnimateWindow(Handle, 1500, AW_BLEND or AW_HIDE); // Ausblendeffekt
CanClose:= True;
end;
end. <hr></font></pre></blockquote>
grz zer00
01.08.2006, 10:49
