怎么用TFormStream打开ASP和HTML的文件???
我打开时,老是出错。
真没办法呀!!!!
向高手高脚请教!!!!!!!!!!!!!!
ansiReplaceText只能对String有效,我是用TFormStream读取的文件,
要如何实现用ansireplacetext对其中某些字符串进行替换????procedure TForm1.Button1Click(Sender: TObject);
var MS:TFileStream;
begin
if opendialog1.Execute then
begin
MS:=TFileStream.create(opendialog1.FileName,fmOpenRead);
Memo1.Lines.LoadFromStream(MS);
MS.free;
end;
end;
end.
我打开时,老是出错。
真没办法呀!!!!
向高手高脚请教!!!!!!!!!!!!!!
ansiReplaceText只能对String有效,我是用TFormStream读取的文件,
要如何实现用ansireplacetext对其中某些字符串进行替换????procedure TForm1.Button1Click(Sender: TObject);
var MS:TFileStream;
begin
if opendialog1.Execute then
begin
MS:=TFileStream.create(opendialog1.FileName,fmOpenRead);
Memo1.Lines.LoadFromStream(MS);
MS.free;
end;
end;
end.
解决方案 »
- 关于结构体数组赋值的问题!
- 请问一下:ChartEditor 与 Chartpreviewer ?
- InstallShield10.5打包BDE+SQl Server2000问题
- 一个PE压缩工具的部分ASM代码,需要完整源码的可以跟我要。
- 求助!一个编程经常遇到的问题?
- 菜鸟级问题,请能者赐教。。。。。。。。。。。
- 高分求delphi5 update pack 1 enterprise edition的序列号
- 问几个简单问题,谢谢.
- 为什么用DBE联接数据库会出现(要你输入数据库用户名和密码呀),怎么解决呀
- delphi+mssql2005+三层开发问题
- 请教delphi + oracle的问题
- 谁有Delphi6下的Developer Express Inc的酷表格控件。太好了,有解密的吗?
MS:TFileStream;
begin
if opendialog1.Execute then
begin
MS:=TFileStream.create(opendialog1.FileName,fmOpenRead);
Try
Memo1.Lines.LoadFromStream(MS);
Finally
MS.free;
end;
end;
end;
代码可以的,但没有楼主说的TFormStream,应为TFileStream.