Strings zerlegen in 3 Stringlisten

[raiguen]

Moin...
Du kannst das noch weiter vereinfachen:

Delphi-Quellcode:

procedure CreatePhone;
var i:integer;
    temp:string;
    tmpList: TStrings;
begin
  phoneFullLst := TStringList.Create;
  phoneNameLst := TStringList.Create;
  phoneNumberLst := TStringList.Create;
  phoneAreaLst := TStringList.Create;
  

  if FileExists(ProgrammPfad + '\tbook.txt') then
    begin
      phoneFullLst.LoadFromFile(ProgrammPfad + '\tbook.txt');
      //--tempöräre Liste erzeugen
      tmpList := TStringList.Create;

      for I:=0 to phoneFullLst.Count-1 do
        begin
          temp := phoneFullLst.strings[i];
          {wenn Delphi 6 und höher:}
            tmpList.Delimiter := ',';
            tmpList.DelimitedText := temp; 
          {für alle Delphi-Versionen geht auch das:}
            tmpList.CommaText := temp;
          phoneNameLst.Add(tmpList[0]);    //nur Namen
          phoneNumberLst.Add(tmpList[1]);  //nur Nummern
          PhoneAreaLst.Add(tmpList[2]);    //nur Status
      end;
      tmpList.Free;
  end;
end;

Die Funktion .DelimitedText bzw .CommaText erzeugt aus einem (hier) KommaSeparierten String einzelne Strings (in deinem Beispiel 3), auf die Du mittels Index zugreifen kannst