1. Список говнокодов пользователя RoschinSpb

    Всего: 1

  2. Pascal / Говнокод #21911

    −47

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    procedure TaQuoteReestr.gSearchResultKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  if (ssctrl in Shift) and ((Key = ord('C')) or (ord(Key) = ord('c')) or (Key = ord('С')) or (ord(Key) = ord('с'))) then 
    gSearchResultDblClick(Sender);
end;

    Не удержался... это же чем должна быть забита голова, чтобы так писать.
    Тут копирование (gSearchResultDblClick) некоего набора данных происходит по двойному клику (!) на строке грида. И оно же продублировано по Ctrl+C. Естественно, что когда на двойной клик повесили более адекватное действие: вход в режим редактирования — копирование отвалилось.
    Особенно радует обработка клавиши. Последовательно проверяется заглавная и строчная буква английского и русского алфавитов. При этом почему-то забыты Греция, Габон, Гондурас... и все остальные.

    RoschinSpb, 28 Декабря 2016

    Комментарии (95)