Скачать: CL | DM;

как компонент в процедуру передать????   Найти похожие ветки 

← →
Blunder   (2004-03-31 09:50) [0]

Такая проблема, есть процедура
procedure AutoComplete(Field_Name: string; EditField: TEdit);
процедура юзает свойства
EditField.Text
EditField.SelStart
EditField.SelLength
.........................
в неё передаю TEdit,
procedure TCompanyWindow.FullNameEditChange(Sender: TObject);
begin
 AutoComplete("FULL_NAME", (Sender as TEdit));
..................

появилась необходимость передавать в процедуру TComboBox для тех же целей. Как это сделать???... если TObject то не доступны свойства , можно конечно if (EditField is TComboBox) но тогда проще перегруженную процедуру сделать.

---

← →
Palladin ©   (2004-03-31 09:55) [1]

приведи к наименьшему общем кратному...
а конкретно узнай чьи это свойства (text,selstart,sellength) и определи тип EditField...


> но тогда проще перегруженную процедуру сделать.

да? и с чего это бы? попробуй...

---

← →
Digitman ©   (2004-03-31 09:55) [2]

procedure AutoComplete(Field_Name: string; EditField: TObject);
begin
 if EditField is TEdit then
   with TEdit(EditField) do
     ...
 else if EditField is TComboBox then
   with TComboBox(EditField) do
     ...
end;

..

procedure TCompanyWindow.FullNameEditChange(Sender: TObject);
begin
AutoComplete("FULL_NAME", Sender);
..

---

← →
Sun bittern ©   (2004-03-31 09:55) [3]

TStrings

---

← →
Sun bittern ©   (2004-03-31 09:57) [4]

Sun bittern ©   (31.03.04 09:55) [3]

Нет-нето :(

---

← →
Blunder   (2004-03-31 10:07) [5]

я тоже уже понял что не-то SelStart у strings нету

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.037 c