Guten Abend Leute,
Brauche nochmal eure Hilfe.
Ich habe eine Parse Function die brauche ich zum bearbeiten von Strings.
Delphi-Quellcode:
function Parse(Char, S: string; Count: Integer): string;
var
I: Integer;
T: string;
begin
if S[Length(S)] <> Char then
S := S + Char;
for I := 1 to Count do
begin
T := Copy(S, 0, Pos(Char, S) - 1);
S := Copy(S, Pos(Char, S) + 1, Length(S));
end;
Result := T;
end;
Jetzt habe ich aber jetzt ne Situation wobei ich nur die Rechte Seite des Delimiters brauche.
Zitat:
//www.liquidtorrent.org/download.php/8653/windtalkers/5B1/5D.pal.de.dvdr.torrent
Also ich brauche nur zum weiterverarbeiten
Zitat:
windtalkers/5B1/5D.pal.de.dvdr.torrent
dazu wollte ich die oberne Parse Function etwas umschreiben aber es klappt nicht so richtig.
Kann mir da einer den richtigen Weg zeigen bitte?
Recht herzlichen Dank.
MFG, Lucius.