Strings zerlegen in 3 Stringlisten

[bluescreen25]

Besten Dank für die Vorschläge, das hier konnte ich noch am schnellsten umsetzen:

Delphi-Quellcode:

procedure CreatePhone;
var i:integer;
    temp:string;
begin
  phoneFullLst := TStringList.Create;
  phoneNameLst := TStringList.Create;
  phoneNumberLst := TStringList.Create;
  phoneAreaLst := TStringList.Create;
  
  if FileExists(ProgrammPfad + '\tbook.txt') then
  phoneFullLst.LoadFromFile(ProgrammPfad + '\tbook.txt');

  for I:=0 to phoneFullLst.Count-1 do
  begin
    temp := phoneFullLst.strings[i];
    phoneNameLst.Add(SplitString(temp,','));             //nur Namen
    phoneNumberLst.Add(SplitString(SplitedString,','));  //nur Nummern
    PhoneAreaLst.Add(SplitString(SplitedString,' '));    //nur Status
  end;
end;

und die Hilfsfunktion so:

Delphi-Quellcode:

Function SplitString (Var S: String; Del: String): String;
Var
  p: Integer;

Begin
  p := pos(Del, S);
  If p = 0 Then Begin
    Result := s;
    s := '';
  End
  Else Begin
    Result := Copy(s, 1, p - 1);
    SplitedString := Copy(s, p + length(Del), length(s));  //SplitedString : string
  End;
End;

Gruß, bluescreen25