datei mit TFileStream auslesen

[sakura]

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.

......