fscanf in Delphi?

[DGL-luke]

tab ist docch #13, oder?

Delphi-Quellcode:

function readfilebytabs(filename:string):TStrings;
var f:file of widestring; s:string;
begin
result:=Tstringlist.create;
assignfile(f,filename);
reset(f)
while not eof(f) do
 begin
  read(f,s);
  result.deliminator:=#13;
  result.delimitedtext:=s;
 end;
closefile(f);
end;

ich weiss, dass das weder elegant noch performant ist, aber es sollte funktionieren.

edit: das closefile nicht vergessen...