Mhmm..., deine Funktion, die du dir vorstellst würde so aussehen:
Delphi-Quellcode:
function TimeToStr(Time: TDateTime): string;
var min, std, sec:Integer;
begin
min:= DateUtils.MinuteOf(now);
std:= DateUtils.HourOf(now);
sec:= DateUtils.SecondOf(now);
result:=IntToStr(std)+':'+IntToStr(min)+':'+IntToStr(sec);
end;
--> Gibt die eine Uhrzeit (TDateTime) als String aus. (Form: hh:mm:ss)
äääh...., du meinst der Parameter ist die Anzahl der Sekunden?...
ok, dann halt so:
Delphi-Quellcode:
function TimeToStr(secs:integer): string;
var min, std, sec:Integer;
begin
min:= secs div 60;
std:= secs div 3600;
sec:= secs mod 60;
result:=IntToStr(std)+':'+IntToStr(min)+':'+IntToStr(sec);
end;
-> Rückgabewert ist ein String (Form: hh:mm:ss).
-> Es erwartet als Paramter die Anzahl der Sekunden.
Hoffe dass ich helfen konnte..
Greetz by Hux
//editz:
Zitat von
brsx:
procedure TimeToStr(Time: TDateTime): string;
var a:real;
begin
edit1.text:=strtotime(a);
???????
end;
Äähhmm..., seitwann gibt procedure einen Wert zurück....?
Du meinst wohl function