- 1
- 2
- 3
- 4
- 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;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+152
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 как процедуру.
AlexT 26.11.2011 21:45 # 0