как компонент в процедуру передать????

← →
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

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

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

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