klaster napisał:
a będzie to w encyklopedji
>
>jeśli tak to prosze podaj mi link bo jestem modemowcem i nie mam tyle czasu by szukać z pośród tylu
>postów i tematów
>
Na razie nie ma tego w encyklopedii. Myslalem, zeby napisac ale tych funkcji i procedur jest mnostwo i nie mam na razie czasu. Masz tu inny sposob niz powyzszy:
uses
DateUtils;
var
Start :TDateTime;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Teraz: TDateTime;
begin
Teraz:=Now;
Label1.Caption:='Program chodzi '+
IntToStr(DaysBetween(Teraz, Start))+' dni '+
IntToStr(HoursBetween(Teraz, Start) mod 24)+' godzin '+
IntToStr(MinutesBetween(Teraz, Start) mod 60)+' minut '+
IntToStr(SecondsBetween(Teraz, Start) mod 60)+' sekund';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Start:=Now;
end;
--Pawel {Delphi 6 Personal}
Po pierwsze: naciśnij F1