17.04.2012, 10:06
|
Начинающий
|
|
Регистрация: 20.12.2010
Адрес: Иваново
Сообщения: 100
Версия Delphi: Delphi 7
Репутация: 519
|
|
хм, так?
PHP код:
{$APPTYPE CONSOLE}
uses Dialogs;
procedure SuperProc(var a, b: integer);
begin
a := 1;
b := 2;
if (a=1) then
exit
else
ShowMessage('Epic FAIL!');
end;
ShowMessage('Epic FAIL!');
|