本文整理自网络,侵删。
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 datamodule1 fdconnection1数据库连接
Delphi system.net.httpclient 下载
更多相关阅读请进入《Delphi》频道 >>