Die simpelste Anpassung in Deinem Beispiel wäre:
Code:
procedure LoadFile(Filename : String; window : TFormChild);
var stream : TFileStream;
t_read : Array of [color=#f50000]Char[/color];
a : Integer;
t_str : String;
begin
stream := TFileStream.Create(Filename,fmOpenRead);
SetLength(t_read,stream.size);
[color=#ff0024]stream.read(t_read[0], stream.size);[/color]
FreeAndNil(stream);
window.mmoMain.Text := String(PChar(@t_read[0]));
end;
oder
Delphi-Quellcode:
procedure LoadFile(Filename : String; window : TFormChild);
begin
window.mmoMain.LoadFromFile(Filename);
end;
Größere Dateien sollte man jedoch eher Blockweise einlesen.
...
...