Was gefällt dir an Streams nicht? Damit lädst du eine Datei Byteweise in ein Array, wandelst sie in Chars um und fügst sie einem Memotext hinzu:
Delphi-Quellcode:
var fs: TFileStream;
MyArray: Array of Byte;
i: Integer;
begin
fs:=TFileStream.Create('C:\boot.ini', fmOpenRead);
try
SetLength(MyArray, fs.Size);
fs.Read(MyArray[0], fs.Size);
for i := 0 to High(MyArray) do
begin
Memo1.text:=Memo1.Text+Char(MyArray[i]);
end;
finally
fs.Free;
end;
end;