Entwickler-Ecke

Sonstiges (Delphi) - Inttotime


hedie - So 29.05.05 09:39
Titel: Inttotime
Hallo

ich suche eine art inttotime funktion weil bei meinem Programm ein Label Minuten für den Timer anzeigen soll und wie ihr wisst, sind minuten beim timer
immer 60000 und das verwirrt
wie kann ich machen, das anstat 60000 au dem label nur 6.0 angezeigt wird oder auch nur 6 und steuerbar soll das mit einer scrollbar sein also etwa so


Delphi-Quelltext
1:
label6.Calption := (inttostr(scrollbar1.Position));                    


aber jetzt werden eben 60000 angezeigt

hoffe ir könnt mir helfen

grüsse
Claudio


Sprint - So 29.05.05 09:48


Delphi-Quelltext
1:
  Label1.Caption := FormatFloat('0.0', ScrollBar1.Position / 1000 / 60);                    


hedie - So 29.05.05 09:52

sorry aber ich sehe keinen code soll das heissen du weisst es nicht?


Sprint - So 29.05.05 09:55

user profile iconhedie hat folgendes geschrieben:
sorry aber ich sehe keinen code soll das heissen du weisst es nicht?

Wieso siehst du nichts?


hedie - So 29.05.05 09:58

keine ahnung es hat einfach n scroll balken und sonst nichts

kannst du ihn nicht noch einmal posten? so wie ich jetzt schreibe?


Sprint - So 29.05.05 10:09


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.FormCreate(Sender: TObject);
begin

  ScrollBar1.Max := 60 * 60 * 1000// min.  1 Minute
  ScrollBar1.Min :=  1 * 60 * 1000// max. 60 Minuten

end;


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin

  Label1.Caption := FormatFloat('0.0', ScrollBar1.Position / 1000 / 60);

end;