Auch wenn du's schon hast, ich hätte das so gemacht.
Delphi-Quellcode:
function TForm1.KommaCut(Text : String) : String;
var
kpos,i: Integer;
str : String;
begin
kpos := pos(',',Text)+1;
For i:= kpos to Length(Text) do begin
str := str + Text[i];
end;
KommaCut := str;
end;
Vielleicht hilft dir das ja trotzdem (wenn's funzt).
Bis dann, man ließt sich. Stanlay
