VPF::три раза выводит сообщение - Форум программистов

Негодяй

Дата 15.9.2007, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Порядочный

Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

Репутация: нет
Всего: 32

Уважаемые программисты. В этом коде:

Код


procedure Poisk_Rediski;
var
F:TextFile;
S:String;
begin
AssignFile(F,'rediski.txt'); 
Reset(F); 
 while not EOLN(F) do 
  begin
   Readln(F,S); 

    if (S=Form1.Edit1.Text) and ((Length(Form1.Edit1.Text))=7) or (Length(Form1.Edit1.Text)=11) then  
     showmessage('Это редиска!');
     end;
 CloseFile(F); 
 end;

Если в поле Еdit ввести телефон, который отыщется в текстовом файле радисток, то сообщение "это редиска" выводится 3 раза подряд. Как сделать, чтобы один раз?

Это сообщение отредактировал(а) Alexeis - 15.9.2007, 12:35

Alexeis

Дата 15.9.2007, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

После первого нахождения досрочно выходить из цикла.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Негодяй

Дата 15.9.2007, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Порядочный

Профиль
Группа: Завсегдатай
Сообщений: 1513
Регистрация: 13.2.2005
Где: Kazakhstan, Almat y

Репутация: нет
Всего: 32

Alexeis,
Досрочно выходить, это значит использовать break или exit? И как и где имел ввиду? Я уже сделал решение:

Код


if ((S=Form1.Edit1.Text) and (Length(Form1.Edit1.Text)=7)) or ((S=Form1.Edit1.Text)
    and (Length(Form1.Edit1.Text)=11)) then  
     showmessage('Это нехороший человек!');

Alexeis

Дата 15.9.2007, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

exit - это выход из процедуры.

Цитата(Негодяй @ 15.9.2007, 12:44

)

И как и где имел ввиду?

сразу после вывода сообщения.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »