Einzelnen Beitrag anzeigen

tomkupitz

Registriert seit: 26. Jan 2011
341 Beiträge
 
Delphi 12 Athens
 
#15

AW: Delphi Project Viewer 1.0

  Alt 9. Mär 2017, 14:16
Code:
var fs: TFileStream;
    ms: TMemoryStream;

begin
  fs:=TFileStream.Create(fn, fmOpenRead);
  ms:=TMemoryStream.Create;

  try
    ObjectResourceToText(fs, ms);

    Form1.Memo1.Lines.LoadFromStream(ms);

  finally
    fs.Free;
    ms.Free;
  end;
end;
Das will er nicht...
  Mit Zitat antworten Zitat