String statt rechts, links abschneiden (geloesst).

[lucius]

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.

[Oxmyx]

LeftStr bzw. RightStr in StrUtils.pas

[lucius]

Hi Oxmyx, ja geht auch aber wie verarbeite ich das in der Function?

[lucius]

Leute, ich habs geloesst mittels einer SplitArray.

Trotsdem Danke.