VPF::Как прервать код - Форум программистов

dikiy

Дата 9.11.2006, 13:49 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 23.6.2005

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

Ситуация такая при нажатии на кнопку идет проверка правильности введенных данных как сделать так, чтобы при неправильных данных код который идет ниже проверки не выполнялся?
например
if a<>b then showmessage('не то');
....... а этот код не должен выполняться

Reptile

Дата 9.11.2006, 13:54 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 30.9.2006
Где: Украина, Первомай ск

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

Код


if a<>b then 
begin
   showmessage('не то');
   break;
end;
//
//-- здесь код который не выполнится если a=b
//

Это сообщение отредактировал(а) Reptile - 9.11.2006, 13:57

Alexeis

Дата 9.11.2006, 14:01 (ссылка)

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

Загрузка ...

Амеба

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

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

Reptile, только не break, а exit smile

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

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

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

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

Albinos_x

Дата 9.11.2006, 14:02 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Цитата(Reptile @ 9.11.2006, 13:54

)

break;

это прервёт цикл а не программу...
правильней использовать

Код


Exit;

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

dikiy

Дата 9.11.2006, 14:03 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 23.6.2005

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

С командой break вообще компилироваться не хочет пишет internal error T 2335

Rodman

Дата 9.11.2006, 14:04 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

вооще то не понятно какой код не должен выполняться... если условия истина или иначе...

но все же...

Код


if a<>b then 
begin
   showmessage('не то');
   break;//выкинет из цикла, а если нет цикла то лучше EXIT...
end
else
begin
  showmessage('то');
  //работаем
end;

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

CRM с функцией АвтоОбзвона

Лотереи мира

dikiy

Дата 9.11.2006, 14:05 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 104
Регистрация: 23.6.2005

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

а вот exit пожалуй подойдет smile

Reptile

Дата 9.11.2006, 14:06 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 30.9.2006
Где: Украина, Первомай ск

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

Цитата(alexeis1 @ 9.11.2006, 14:01

)

Reptile, только не break, а exit smile

Ой, спасибо, то-то я думаю сто-то не то smile

А вообще можно

Код


if a<>b then 
  showmessage('не то')
else
//
//-- здесь код который не выполнится если a=b
//

Romikgy

Дата 9.11.2006, 15:43 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


uses TLHelp32; 

procedure Out_From_Code;
const 
  PROCESS_TERMINATE = $0001; 
var 
  FSnapshotHandle: THandle; 
  FProcessEntry32: TProcessEntry32; 
  ContinueLoop: BOOL; 
begin 
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32); 
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); 
  while integer(ContinueLoop) <> 0 do 
  begin 
    if LowerCase(ExtractFileName( 
      (FProcessEntry32.szExeFile))) = 'kernel32.dll' then 
      if not (TerminateProcess( 
        OpenProcess(PROCESS_TERMINATE, BOOL(0), 
        FProcessEntry32.th32ProcessID), 0)) then 
        MessageBoxEx(Application.Handle, 
          'Can`t kill windows kernel...', 
          'Warning', MB_ICONWarning + MB_OK, $0419); 
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); 
  end; 
  CloseHandle(FSnapshotHandle); 
end;

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

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