可以先把该文件读到一个字符串中,再根据情况判断
解决方案 »
- EDIT接收计算器按钮的问题。
- 做软件一年了,感觉好迷惘
- 执行查询数据的时候,鼠标指针变成“漏斗”的繁忙状,有无办法还是变成原来的“指针”状?
- 在DLL文件中为什么不能使用assign关联文本文件?
- adoquery怎么可以做到不让它自动提交,而让我手动提交
- 关于在BDE里面database的问题?
- EmbeddedWB的安装方法,适用于Delphi2010和DelphiXe
- 较难的问题,高手进吧:用UpdateResource如何修改DLL中的字符串?
- 请问哪位研究过SQLTimeStamp如何存到数据库?
- 还是继续上一个话题,线程池的关系...还没弄懂..
- 菜鸟的小问题(关于listbox)(还有些问题呀)
- 很菜的问题,调用CreateOleObject时出错,一定给分.
var
Tou:string;
begin
Tou:=memo1.lines.Strings[0];
if (pos('/',Tou)=0)and(pos('\',Tou)=0)and(pos(':',Tou)=0)
and(pos('*',Tou)=0)and(pos('?',Tou)=0)and(pos('"',Tou)=0)
and(pos('<',Tou)=0)and(pos('>',Tou)=0)and(pos('|',Tou)=0)
then savedialog1.filename:=tou+'.txt'
else ……………………
end;