strings aus txt file lesen

[DGL-luke]

dann mach es mit inifiles.....

ansonsten:

Delphi-Quellcode:

type TTextfile = record
 date:string;
 time:string;
 Data: array of string;
end;

function getfile(filename:string):TTextfile;
var f:textfile;
    s:string;
begin
assingfile(f,filename);
reset(f)
readln(f,s); //head skippen
readln(f,s); //leerzeile skippen
readln(f,s);
result.date:=copy(s,length('Time: ')+1,length(s));
readln(f,s);
result.time:=copy(s,length('Date: ')+1,length(s));
readln(f,s);readln(f,s),readln(f,s); //drei zeilen skippen
readln(f,s);
while (s<>'') do
 begin
  setlength(result.data,length(result.data+1));
  result.data(high(result.data)):=s;
  readln(f,s);
 end;
end;

reicht dir das? du musst den rückgabewert der funktion natürlich iener variablen zuweisen.

dazu sei noch gesagt, dass das setlength in der schleife unelegant und unperformant ist.

und ausserdem hast du jetzt nur immer "namex: wertx" in dem array drin, da solltest du aber wohl mit den tipps, die du bekommen hast, selbst rankmen.