1. Pascal / Говнокод #888

    +152

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    procedure TfmEditAddDet.ControlExit(Sender: TObject);
    begin
      if Sender Is TEdit then TRIM(TEdit(Sender).Text)
        else if Sender Is TMemo then TRIM(TEdit(Sender).Text);
    end;

    Попытка вызова TRIM как процедуру.

    Запостил: guest, 16 Апреля 2009

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

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