Mit dem Datentyp hatte ich mich geirrt, es ist ein Longint.
Code:
Memo1.Lines.LoadfromFile('c:\Test.txt');
Das hier funktioniert zwar bei Textdateien, ich will aber auch, wie Notepad, binäre Dateien wie z.B. exe oder gif-Dateien öffnen können.
Der Tip mit buffer[1] hat mir sehr geholfen, auch dieser funzt mit Textfiles wunderbar, aber wie das mit einer Gif-Datei aussieht, könnt ihr im Anhang bestaunen
...
Die Screenshots sind von einem Programmablauf mit folgendem Code entstanden:
Code:
const
count = 1024;
var
datei: tfilestream;
buffer: string;
r: longint;
begin
if opendialog1.Execute then begin
datei := tfilestream.Create(opendialog1.FileName,fmopenread or fmsharedenynone);
setlength(buffer,count);
repeat
r := datei.Read(buffer[1],sizeof(buffer));
memo1.Text := memo1.Text + buffer;
//showmessage(inttostr(r));
until (r < sizeof(buffer));
datei.Free;
end;
end;
Der Dateiname, der in dem Screenshot ständig zu sehen ist, ist der des gif-Bildes.