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

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