Time wert in Longint umwandel

[Alf]

Hi Leute.

Das Umwandeln von Longint in ein FormatDateTime hab ich

Delphi-Quellcode:

Function TForm1.Zeit(rTime: LongInt):String;
var
   s: TTime;
begin
      s:= StrToTime(IntToStr(0)+':'+IntToStr(Trunc((rtime/1000)/60))+':'+
                            Inttostr(Trunc(rtime/1000 ) mod 60)+','+
                                   FloatToStr( rtime mod 1000));
       Result:=FormatDateTime('nn:ss:zzz',s);
end;

aber nun brauche ich es in umgekeherter Form ( string nach Longint)
und hab keine Ahnung!!!

den anfang habe ich, aber dann???? kein Denken mehr

Delphi-Quellcode:

Function TForm1.ZeitToInt(s: String): LongInt
var
   t: TTime;
begin
    t:=StrToTime(s);


end;

Ich Hoffe Ihr könnt mir helfen?


Gruss Alf