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.