Länge eines Strings vs. verbrauchter Speicherplatz

[Chris.R]

So sollte es gehen:

Delphi-Quellcode:

try
  AssignFile(Datei, 'dateiname');
  Reset(Datei, 1);
  repeat
    BlockRead(Datei, Buffer, SizeOf(Buffer), NumRead);   //Buffer ist array[1..1024] of Char
    temp:=temp+Copy(Buffer, 1, NumRead);
  until
    (NumRead < SizeOf(Buffer));
finally
  CloseFile(Datei);
end;

result:=temp;

Warum nimmst du eigentlich nicht die LoadFromFile Funktion von TStrings?

Ciao Chris