TTime Wert zuweisen

[Gambit]

Hi,

Delphi-Quellcode:

var Time: TTime;
begin
  Time:= 0.00125;
  Label1.Caption:= timeToStr(Time);
end;

Kann mir mal einer sagen weshalb das 1 Minute und 48 Sekunden ergibt?

Gambit

[SirThornberry]

benutze doch einfach "encodeTime". Das ist nicht 1 Minute 48 sonder 1:48 Uhr. Und der grund ist das es eben so defniert wurde, so wie irgendwann mal jemand beschlossen hat das eine stunde 60 minuten hat etc.

[Binärbaum]

Also TTime ist (wie auch TDateTime) quasi ein Double-Typ, bei dem der Teil nach dem Komma als Zeit des tages interpretiert wird.
Damit ergibt z.B. 0.0 immer 0:00 Uhr, 0.5 ist dann 12:00 Uhr, usw.

MfG
Binärbaum

[Gambit]

Danke,

ne es geht mir darum, ich möchte auf einem Label eine vorher eingestellte Zeit in 1 Sekundenschritten rückwärts laufen sehen.
Habe schon hier gesucht aber bin wohl wieder zu dumm das richtige Suchwort einzugeben. Kann ja eigentlich nicht so schwer sein...


//Edit: Hat sich erledigt, EncodeTime war 'ne gute Idee...

[Binärbaum]

Versuchs doch mal mit einem Timer, dessen Interval auf 1000ms steht. Im Timer-Ereignis kannst du dann die Zeit um eins runterzählen.

MfG
Binärbaum

[Gambit]

Ja, genauso hab ichs dann auch gemacht...

THX

Gambit

[TStringlist]

Auch schonmal nach 'IncSecond' geguckt? Dann mit -1 angewandt:

Delphi-Quellcode:

  Time := incSecond(Time,-1);

[Gambit]

Danke, nein noch nicht. Im Moment bin eher nach einer Digitalanzeige für den Counter, im Label siehts nicht so schick aus. Die Jedis bieten sowas an, da wird die Anzeige aber ohne führende Nullen angezeigt...==> weitersuchen...

//Edit: Stimmt nicht, kann man einstellen...hätte mich auch gewundert...