Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.23;
Скачать: CL | DM;

Вниз

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

 
Tosha_a   (2002-05-11 19:37) [0]

Добрый вечер.
Пишу компонент.
Есть классы:
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("


 
Song ©   (2002-05-11 19:41) [1]

А как она объявлена в interface?


 
Tosha_a   (2002-05-11 19:46) [2]

public
{ Public declarations }
constructor Create(AOwner: TComponent);override;
destructor Destroy; override;
procedure LoadValues;virtual;

и т.д.


 
MBo ©   (2002-05-11 20:23) [3]

TRegValues.LoadValues;

вместо этого надо, скажем
ARegValues.LoadValues;
где
ARegValues:TRegValues;



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

Текущий архив: 2002.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
14-73374
asafr
2002-04-15 17:06
2002.05.23
Пародия на Гоголя о любимом Windows 98...


14-73391
Yaro
2002-04-15 10:11
2002.05.23
Основы написания ВИЗУАЛЬНЫХ компонентов...


14-73356
Rooman
2002-04-14 09:09
2002.05.23
А законна ли экспертиза системного блока вообще?


4-73467
AFROLOV
2002-03-25 11:28
2002.05.23
Как не пропускать сообщение к чужому приложению


1-73293
Tosha_a
2002-05-11 19:37
2002.05.23
как вызвать процедуру?