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