Zerlegen einer Zeichenkette mit festen Trennzeichen(Tipp drucken)

---

procedure Zerlege;
var
  vSL: TStringList;
begin
  vSL := TStringList.Create;
  try
    SplitString(vSL, 'Test1::Test2::Test3::', '::');
  finally
    vSL.Free;
  end;
end;

procedure SplitFileList(vSL: TStringList; vFileString, vSeparator: String);
begin
  vSL.Text := StringReplace(vFileString, vSeparator, #13 + #10, [rfReplaceAll]);
end;