Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];
Внизкак вызвать процедуру? Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c