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;
以上运行正常,我想增加文本中不存在该字符的判断,不知道如何写/谢谢!!!
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;
以上运行正常,我想增加文本中不存在该字符的判断,不知道如何写/谢谢!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货