Delphi查找文本的问题

syjjsjp 2012-04-21 10:35:45
procedure TForm1.Button1Click(Sender: TObject);//查找文本
var
f: TextFile;
s: string;
list:Tstringlist;
begin
AssignFile(f, 'D:\3.txt');
reset(F);
while not eof(F) do
begin
Readln(F, s);
list:=Tstringlist.Create;
list.Delimiter:=':';
list.DelimitedText:=s;

if list.strings[0]=edit1.text then
begin
edit2.text:= list.strings[1];
break;//终止
end ;
end;
CloseFile(f);
end;
以上运行正常,我想增加文本中不存在该字符的判断,不知道如何写/谢谢!!!
...全文
98 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
syjjsjp 2012-04-21
  • 打赏
  • 举报
回复
非常感谢你的帮助,成功了。
syjjsjp 2012-04-21
  • 打赏
  • 举报
回复
非常感谢你的回答,我先试试!
bdmh 2012-04-21
  • 打赏
  • 举报
回复
设一个变量,开始是false,如果找到了,就为true,循环完毕后,判断这个变量,如何还为false,怎为没找到

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧