unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DateUtils, StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Timer1: TTimer;
Label2: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Image1: TImage;
Panel1: TPanel;
Panel3: TPanel;
procedure FormActivate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
a,b,c,d,Zeile:
String;
implementation
{$R *.dfm}
function ZeileLesen(
const Datum:
String; Num: Word;
var Zeile:
String): Boolean;
var
TextDatei: TStringList;
begin
Result := False;
TextDatei := TStringList.Create;
try
TextDatei.LoadFromFile(Datum);
if Num > (TextDatei.Count - 1)
then Exit;
Zeile := TextDatei[Num];
Result := True;
finally
TextDatei.Free;
end;
end;
function DateTimeDiff(date1, date2: TDateTime):
string;
var days, hours, minutes, secs: integer;
difference: real;
begin
difference:=date2-date1;
days:=round(difference-Frac(difference));
difference:=Frac(difference)*24;
hours:=round(difference-Frac(difference));
difference:=Frac(difference)*60;
minutes:=round(difference-Frac(difference));
difference:=Frac(difference)*60;
secs:=round(difference-Frac(difference));
result:=IntToStr(days)+'
Tage, '+IntToStr(hours)+'
Stunden, '+#13#10 +IntToStr(minutes)+
'
Minuten und '+IntToStr(secs)+'
Sekunden';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label3.Caption:= DateTimeToStr(now);
label1.caption:=(datetimediff(strtodatetime(a), ((now))));
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
begin
if ZeileLesen('
Datum.txt', 0, Zeile)
then a:=(Zeile);
end;
begin
if ZeileLesen('
Datum.txt', 1, Zeile)
then b:=(Zeile);
end;
begin
if ZeileLesen('
Datum.txt', 2, Zeile)
then c:=(Zeile);
end;
begin
if ZeileLesen('
Datum.txt', 3, Zeile)
then d:=(Zeile);
end;
label4.caption:=(a);
label6.Caption:=(b);
label7.Caption:=(c);
label8.Caption:=(d);
end;
end.