Цитата:
|
Сообщение от Raam
я создал свой класс Tcomport и создал 2 объекта класса port_m и potr_s;
существует процедура вне класса, которая использует процедуры ккласса Tcomport
EXAMPLE
PROCEDURE ANALIZ;
begn
port_m.procedure1;
port_m.procedure2;
end;
ВОПРОС:
КАК мне переделать эту процедуру к виду procedure analiz(port_:Tcomport);
begin port_.procedure1; ... end;
чтобы использовать эту мроцедуру для любых объектов класса и как передать имя объекта в эту процедуру. Если не понятен вопрос - могу вывесить исходники!
помогите пожалуйста, а то писать в нутри процедуры какие нить if then else На мой взгляд не профессионально!
|
В классе Tcomport у тебя есть свойство Name?
Желательно исходник... я не очень понял.
*******************
* Используй тег [code] *
*******************