Hi,
ich versuche eine Datei per FileStream auszulesen, aber ich bekomme immer einen EOutOfMemory Error und habe keine Ahnung was ich falsch mache. Die Testdatei ist im übrigen nicht mal ein Kb groß, zu ein einziger Satz.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
Stream: TFileStream; s: String; c: Cardinal;
begin
Stream := TFileStream.Create('C:\test.txt', fmOpenRead );
repeat
Stream.Read(c, 4); // Größe einlesen
SetLength(s, c); // Länge des Strings setzen
Stream.Read(s[1], c); // String einlesen
memo1.Lines.Add(s);
until Stream.Position >= Stream.Size;
Stream.Free;
end;