Forum: Multimedia
by loirad,
10. Mai 2011
Es ist ja Türme von Hanoi (mit Rekursion) - das kann dauern:!:
:lol:
Forum: Multimedia
by loirad,
9. Mai 2011
Ich send einfach mal den wichtigen Teil des Quelltextes:
procedure TForm1.BerechnenClick(Sender: TObject);
var start,ende:tdatetime;
begin
start:=now;
//Quelltext, dessen Zeit gemessen werden soll
ende:=now;
showmessage(SysUtils.FormatDateTime('d" Tage":" "m" Monate":" "y" Jahre":" "h" Stunden":" "n" Minuten":" "s" Sekunden ":" "z" Millisekunden"',ende-start));
end;
Forum: Multimedia
by loirad,
9. Mai 2011
@ DeddyH: Ich meine ja immer das vor dem Wort ist der Wert!
@ all: Vorschläge zur Vermeidung, dass 30 Tage, 12 Monate und 99 Jahre ausgegeben werden, wenn nichtmal ein Tag vergangen ist?
Ideen wären sehr hilfreich :thumb::thumb::thumb:!!!
Forum: Multimedia
by loirad,
9. Mai 2011
Auch wenn ich ende und start vertausche kommen die 30 Tage, 12 Monate und 99 Jahre raus. Wie kann ich das verändern :?::?::?:
@ DeddyH: Was meinst du damit?
Forum: Multimedia
by loirad,
9. Mai 2011
Wenn ich mir da dann Tage, Monate und Jahre anzeige, dann werden mir dort andere Zahlen ausgegeben.
Hier ein Beispiel :arrow: "30 Tage: 12 Monate: 99 Jahre: 0 Stunden: 0 Minuten: 8 Sekunden: 979 Millisekunden"
showmessage(SysUtils.FormatDateTime('d" Tage":" "m" Monate":" "y" Jahre":" "h" Stunden":" "n" Minuten":" "s" Sekunden ":" "z" Millisekunden"',start-ende));
Das Programm hat aber...
Forum: Multimedia
by loirad,
9. Mai 2011
kann man die Millisekunden auch anzeigen? - wenn ja wie?
Forum: Multimedia
by loirad,
9. Mai 2011
Hallo liebe Delphi-PRAXISler,
ich messe die Zeit, zwischen 2 Zeiten so :arrow:
start:=now;
Startzeit.Caption:='Startzeit: '+timetostr(start); //(Label Startzeit)
//Prozedure, von der die Zeit gemessen werden soll
ende:=now;
Endzeit.Caption:='Endzeit: '+timetostr(ende); //(Label Endzeit)
Dauer.Caption:='Dauer: '+timetostr(start-ende); //(Label Dauer)