Проблема с циклом...

← →
Gennadiy © (2003-02-03 18:43) [0]

Уважаемые мастера!!!!
Помогите пожалуйста в такое проблеме:
У меня есть файл со списком телефонов, мне нужно так, чтобы программа просматривала этот файл построчно и каждую строчку сравнивала с Edit. И выводила результат найден такой телефон в файле или нет. У меня получился такой код, но программа проводит сравнение только по последней строке в файле:

procedure TForm1.Button2Click(Sender: TObject);
var
FTel:Tstrings;
i:integer;
begin
FTel:=TStringList.Create;
FTel.LoadFromFile("telefon.txt");
For i:=0 to Ftel.Count-1 do
begin
If Edit2.Text=Ftel.Strings[i] then
begin
Label6.Caption:="Строка найдена";
end
else
begin
Label6.Caption:="Строка не найдена";
end;
end;
FTel.Free;
end;

← →
AlexSV © (2003-02-03 18:51) [1]

Ты попробуй вывести резутьтат не в Label, а, например, в ListBox

← →
Clickmaker © (2003-02-03 19:57) [2]

FTel:=TStringList.Create;
try
FTel.LoadFromFile("telefon.txt");
For i:=0 to Ftel.Count-1 do
begin
If Edit2.Text=Ftel.Strings[i] then
begin
Label6.Caption:="Строка найдена";
Exit;
end
end;
Label6.Caption:="Строка не найдена";
finally
FTel.Free;
end;

← →
Sha © (2003-02-03 19:58) [3]

procedure TForm1.Button2Click(Sender: TObject);
var
FTel:Tstrings;
i:integer;
b: boolean;
begin
FTel:=TStringList.Create;
FTel.LoadFromFile("telefon.txt");
b:=false;
For i:=0 to Ftel.Count-1 do
If Edit2.Text=Ftel.Strings[i] then b:=true;
if b Label6.Caption:="Строка найдена";
else Label6.Caption:="Строка не найдена";
FTel.Free;
end;

← →
Anatoly Podgoretsky © (2003-02-03 20:12) [4]

Sha © (03.02.03 19:58)
Компилировать пробовал?

← →
Sha © (2003-02-03 20:19) [5]

> Anatoly Podgoretsky © (03.02.03 20:12)
>> Sha © (03.02.03 19:58)
> Компилировать пробовал?

Такие ошибки должен уметь исправлять каждый.
Просто я сейчас ем.

← →
Sha © (2003-02-03 20:26) [6]

Еще смотрю телевизор, держу вилку, мышь, пульт. Стучу по клавишам, пью из чашки, пытюсь не обжечься и не ронить бутерброд. Плюс кровь медленно отливает от головы, плюс пытаюсь не потерять нить рассуждений дочери. И только самое последнее - кромсаю чужую прогу.

вот, исправлено и чуть чуть дополнено :)
procedure TForm1.Button2Click(Sender: TObject); var FTel:Tstrings; i:integer; b: boolean; begin FTel:=TStringList.Create; FTel.LoadFromFile("telefon.txt"); b:=false; For i:=0 to Ftel.Count-1 do If Edit2.Text=Ftel.Strings[i] then begin b:=true; break; end; if b then Label6.Caption:="Строка найдена" else Label6.Caption:="Строка не найдена"; FTel.Free; end;

Проблема с циклом... Найти похожие ветки