Mein Code ist folgender:
Code:
const
count = 1024;
var
datei: tfilestream;
buffer: string;
r: longint;
begin
if opendialog1.Execute then begin
datei := tfilestream.Create(opendialog1.FileName,fmopenread);
setlength(buffer,count);
r := datei.Read(buffer,count);
memo1.Text := buffer;
end;
end;
Durch Auskommentieren habe ich bemerkt, dass der Fehler in der Zeile, die mit "r :=" anfängt, liegt, die Fehlermeldung bekomme ich aber erst angezeigt, nachdem die komplette Prozedur abgearbeitet ist, auch im Einzelschrittmodus mit F7.