Школоло / Говнокод #5226 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
procedure TwndMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  s: string;
begin
  s := UpperCase(GetCompName);
  CanClose :=
    ((Pos('VADIM', s) <> 0) and (DM.DefDBID = 0)) or
    (ShowConfirmation('Ви дійсно бажаєте вийти з програми?') = mrYes);
end;

Программиста Вадима реально задолбало это сообщение :)

Запостил: stokito stokito, (Updated )

Комментарии (5) RSS

Добавить комментарий

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓