本文整理自网络，侵删。
var mStream: TMemoryStream; thisString: string;begin mStream := TMemoryStream.Create; try mStream.LoadFromFile('Unit1.Pas'); if mStream.Size > 0 then begin SetLength(thisString, mStream.Size); Move(mStream.Memory^, thisString[1], mStream.Size); end; finally mStream.Free; end; if Length(thisString) > 0 then RichEdit1.Text := thisString;end;
//仅供参考
TheString: string;TheStream: TmemoryStream;..TheStream := TMemoryStream.Create;< your code >SetLength( TheString, TheStream.Size);TheStream.Position := 0;TheStream.Write( TheString[1], Length(TheString));TheStream.Free; 相关阅读 >>
Delphi 如何在程序中动态设置墙纸（使用iactivedesktop接口）
Delphi cannot find implementation of method formcreate 解决办法
windows api 的数据类型与 Delphi 数据类型对照表
更多相关阅读请进入《Delphi》频道 >>
