как вызвать процедуру одного класса в функции другого? [D5, Win95/98, Win2k]
Tosha_a © (2002-05-11 19:43:00)
Добрый вечер.
Пишу компонент.
Есть классы:
TRegCollection=class(TCollection)
TRegValues = class(TComponent)
и др.
В TRegCollection есть функция:
function GetByName(sName:String):TRegValue;virtual;
function TRegCollection.GetByName;
var I:Integer;
begin
XXXXXXXXXXXXXXXXXXXXXXXXXXXX
TRegValues.LoadValues;
for i:=0 to count-1 do
if Ansiuppercase(items[i].ValueName)=Ansiuppercase(sName)
then
begin
result:=items[i];
exit;
end;
raise ENameInvalid.Create("
Ra (2002-05-12 11:58:00) [1]
чтобы вызвать этот метод необходимо создать экземпляр класса
RegValues:=TRegValues.Create;
RegValues.LoadValues;
а таким способом - TRegValues.LoadValues можно вызывать
только статические методы коим LoadValues не является
Наверх 
ЧАТ |
Орешник |
|
