[Mrak]

Всем привет)

Пусть есть процедура

Код:

procedure CheckToFloat(ALblEdit: TLabeledEdit);

в ней происходит проверка правильности введенного значения в LabelEdit

Но в программе есть еще обычные Edit

Можно ли как то унифицировать данную процедуру под два компонента? может как-то с их предком можно?

Иначе придется писать точно такую же, но только для Edit

Код:

procedure CheckToFloatForEdt(AEdit: TEdit);

[NumLock]

так пусть она тест принимает, либо TCustomEdit

[poli-smen]

У TEdit и TLabeledEdit общим является TCustomEdit - вот через него и можно.