String in einer Stringliste an Trennzeichen zerlegen

[mkinzler]

Delphi-Quellcode:

var
  sl: TStrings;
..
  try 
    sl := TStringList.Create;
    sl.Text := Buffer;
    result := sl[sl.IndexOf( ContainString)];
  finally
    sl.Free;
  end;