Hallo!
Hier hab ich mal ein Beispiel:
Delphi-Quellcode:
function rf(var filename:string):widestring;
var tf:textfile;
s,sl:widestring;
begin
assignfile(tf,filename);
if FileExists(filename) then
begin
reset(tf);
s:='';
while not eof(tf) do
begin
readln(tf,sl);
s:=s+sl;
end;
end else begin
showmessage('Datei nicht gefunden');
result:='Datei nicht gefunden';
end;
result := s;
end;
Du solltest Widestring statt String nehmen, weil im String nur 255 Zeichen Platz haben und die sind sehr schnell voll! Geht aber auch mit String.
Ist nicht getestet aber dürfte gehen.