| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как вызвать процедуру? [D5, Win95/98, Win2k]
Tosha_a © (2002-05-11 19:37: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("
MBo (2002-05-11 20:23:00) [1]TRegValues.LoadValues;
вместо этого надо, скажем
ARegValues.LoadValues;
где
ARegValues:TRegValues;
Tosha_a (2002-05-11 19:46:00) [2]public
{ Public declarations }
constructor Create(AOwner: TComponent);override;
destructor Destroy; override;
procedure LoadValues;virtual;
и т.д.
Song (2002-05-11 19:41:00) [3]А как она объявлена в interface?
| |
