strings aus txt file lesen

[DGL-luke]

wenn du es dir einfach machen willst: TIniFile

Wenn nicht:

Delphi-Quellcode:

function getdata(filename:string):TStrings;
var f:textfile;
    s,s1:string;
    mark:integer;
begin
result:=TStirngList.create;

assignfile(f,filename);
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  mark:=pos(':',s);
  s1:=copy(s,0,mark) + '=' +        copy(s,mark+2,length(s));
  //  key              trennzeichen value
  result.add(s1);
 end;

end;

liest alles in eine handliche stringlist im format 'key=value' ein, mit dem du dann nach belieben verfahren kannst.
(wobei da auch ein stringreplace('. ','=',[rfReplaceAll]) gereicht hätte

und dann würde ich vom namen(string1,string2,string3) weggehen und mit reinen indizes arbeiten(0,1,2).
macht es einfacher, da du dann in die stringlist nur noch value reinschreiben musst.
wenn du namen behalten willst, ist der Königsweg TInifile.