东
东岳
Unregistered / Unconfirmed
GUEST, unregistred user!
f:TextFile fail.txt文件中有很多汉字，没有换行。现根据输入框输入的文字，比如“艾”，若fail.txt中存在这个字，则删除！！(20分)<br />bf:boolean;
AssignFile(f,'d:/ght/app/dat/Fail.txt');
Reset(f);
while not (eof(f)) do
begin
Read(f,s);
if edtC.Text =s then
begin
bf:=true;
break;
end;
end;
if bf=true then
删除？？？
AssignFile(f,'d:/ght/app/dat/Fail.txt');
Reset(f);
while not (eof(f)) do
begin
Read(f,s);
if edtC.Text =s then
begin
bf:=true;
break;
end;
end;
if bf=true then
删除？？？