Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с циклом... [D6, Win2k]

Gennadiy © (2003-02-03 18:43:00)
Уважаемые мастера!!!!
Помогите пожалуйста в такое проблеме:
У меня есть файл со списком телефонов, мне нужно так, чтобы программа просматривала этот файл построчно и каждую строчку сравнивала с 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;

Sha (2003-02-03 23:02:00) [1]
2 Palladin © (03.02.03 22:53)
именно это я имел ввиду :)

Palladin (2003-02-03 22:53:00) [2]
вот, исправлено и чуть чуть дополнено :)
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;

Романов Р.В. (2003-02-03 20:30:00) [3]
Sha © (03.02.03 20:26)

Короче Цезарь отдыхает :)

Sha (2003-02-03 20:26:00) [4]
Еще смотрю телевизор, держу вилку, мышь, пульт. Стучу по клавишам, пью из чашки, пытюсь не обжечься и не ронить бутерброд. Плюс кровь медленно отливает от головы, плюс пытаюсь не потерять нить рассуждений дочери. И только самое последнее - кромсаю чужую прогу.

Sha (2003-02-03 20:19:00) [5]
> Anatoly Podgoretsky © (03.02.03 20:12)
>> Sha © (03.02.03 19:58)
> Компилировать пробовал?

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

Anatoly Podgoretsky (2003-02-03 20:12:00) [6]
Sha © (03.02.03 19:58)
Компилировать пробовал?

Sha (2003-02-03 19:58:00) [7]
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 bLabel6.Caption:="Строка найдена";
else Label6.Caption:="Строка не найдена";
FTel.Free;
end;

Clickmaker (2003-02-03 19:57:00) [8]
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;

AlexSV (2003-02-03 18:51:00) [9]
Ты попробуй вывести резутьтат не в Label, а, например, в ListBox

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »