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

    Всего: 1

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

    +94

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    if MessageDlg('Удалить проводку №'+srcTransact.DataSet.FieldByName('Trans_ID').AsString+' и ее спецификацию?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    CMD.SQL.Add('EXEC dbo.asp_DelTransact '+srcTransact.DataSet.FieldByName('Trans_ID').AsString );
    CMD.Execute;
    _refresh(srcTransact.DataSet);
  end;
end;

    Из реального проекта (учётная система).
    При определённых условиях можно удалить не только то что пользователь собирался удалить :).
    Да и вообще, сам код - говно.

    Fes, 30 Июля 2010

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