Countdown mit Stunden/Minuten

[p80286]

Dann eben so:

Delphi-Quellcode:

function ASMinute(TimeStr:String; PM:Integer;TimeDelim:String) : String;
var
Stunden, Minuten : Integer;
begin
Stunden := StrToInt(Copy(TimeStr,0,Pos(TimeDelim,TimeStr)-1));
..........

oder

Delphi-Quellcode:

function ASMinute(TimeStr:String; PM:Integer;TDChar:Char) : String;
var
Stunden, Minuten : Integer;
TimeDelim : String;
begin
Timedelim:=TDChar;
Stunden := StrToInt(Copy(TimeStr,0,Pos(TimeDelim,TimeStr)-1));
..........

(ich weiß gerade nicht ob Pos auch mit Char umgehen kann)

Gruß
K-H