Forum: Object-Pascal / Delphi-Language
Delphi
by Haegar,
24. Apr 2003
danke erstmal, werds mir bei gelegenheit anschauen.
gruss haegar
Forum: Object-Pascal / Delphi-Language
Delphi
by Haegar,
24. Apr 2003
da der ergibt sich aus der tollen berechnung von dauer! (siehe oben....MyHoursBetween in timer-proz.) und da beides strings sind übergeb ich die einfach so. bisher:=dauer;
oder hab ich schon wieder was falsch vertanden?? :nerd:
gruss haegar
Forum: Object-Pascal / Delphi-Language
Delphi
by Haegar,
23. Apr 2003
ganz einfachvar bisher:string; :firejump:
ich behandel es zur zeit als string! nix umwandeln :chat:
konnt doch net wissen das du sowas einfaches meinst
gruss haegar
Forum: Object-Pascal / Delphi-Language
Delphi
by Haegar,
23. Apr 2003
tja also im formcreate wird er erstmal auf null gesetzt (bisher:='0') und wenn ich dann auf start drücke hat er auch nix dagegen, alles läuft wunderbar.
beim speichern (siehe oben) benutze ich ja bisher nicht, dazu nehm ich en wert von dauer!
bisher wird lediglich beim laden, stoppen beeinflusst! und beim laden is momentan eben das problem, das der string aus der datei nicht einfach mit...
Forum: Object-Pascal / Delphi-Language
Delphi
by Haegar,
23. Apr 2003
meinste das speichern??
procedure TForm1.LbSpeedButton2Click(Sender: TObject);
var datei:TextFile;
begin
assignfile(datei,'info.txt');
rewrite(datei);
writeln(datei,dauer);
closefile(datei);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Haegar,
23. Apr 2003
aha hab ich mir ja auch schon gedacht, nur wie mache ich das :wink:
scheint ja nicht so einfach mit StrTotime zu gehen!
gruss haegar
Forum: Object-Pascal / Delphi-Language
Delphi
by Haegar,
23. Apr 2003
so, da isser wieder...hier erstmal der code (der eigentlich interessante):
function TForm1.MyHoursBetween(ANow, AThen, ABefore: TDateTime): INT64;
begin
Result := Trunc(24*Abs(AThen-ANow+ABefore));
end;
procedure TForm1.lbbtn_stoppClick(Sender: TObject);
begin
timer.Enabled:=false;
bisher:=dauer;