Текущий архив: 2006.12.31;
Скачать: CL | DM;
Вниз
Abstract Error Найти похожие ветки
← →
sat © (2006-12-12 23:13) [0]вообщем так:
я написал модуль для работы со стеком
и мне еще надо в главной программе отображать работу со стеком...
procedure TForm1.BPushClick(Sender: TObject);
begin
if RadioButton1.Checked then
begin
if not inputquery("Info","Enter the name of new element",caps) then exit;
MainX.Push(caps);
pr; //вот тут возникает ошибка
Application.MessageBox("Element is pushed","Info")
end;
procedure TForm1.Pr;
var
i:longword;
begin
for i:=0 to Mainx.Cap-1 do
Memo1.Lines.Strings[i]:=MainX.Items[i];
end;
MainX.Cap- возвращает сколько элементов в стеке...
push работает нормально... не знаю из-за чего возникет AbstractError&&??
← →
oxffff © (2006-12-12 23:21) [1]Виртуальный метод объявлен как Abstract. И не "override"
← →
AndreyRu (2006-12-12 23:21) [2]procedure TForm1.Pr;
var
i:longword;
begin
for i:=0 to Mainx.Cap-1 do
begin
if Memo1.Lines.Count < i then
Memo1.Lines.Add(MainX.Items[i])
else
Memo1.Lines.Strings[i]:=MainX.Items[i];
end;
end;
← →
sat © (2006-12-12 23:24) [3]спасибо oxffff действительно по глупости забыл поставить override
Страницы: 1 вся ветка
Текущий архив: 2006.12.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.071 c
