|
发表于 2007-7-10 13:57:33
|
显示全部楼层
操作虚拟文件系统,请参考:
procedure TXNWJXT.butLoadClick(Sender: TObject);
var
lFileStream: Business.System.TVirtualFileStream;
lOpenMode: integer;
lFileName: string;
begin
lOpenMode := SysUtils.fmOpenReadWrite;
BizOpenDialog1.InitialDir := edtPath.Text;
if BizOpenDialog1.Execute then
begin
lFileName := BizOpenDialog1.FileName;
lFileStream := Business.System.TVirtualFileStream.Create(FileSys.FileSystem,
lFileName, lOpenMode);
try
{ 从文件流装载内容显示到编辑框中}
memo.Lines.LoadFromStream(lFileStream);
finally
lFileStream.Free;
end;
end;
end; |
|