Текущий архив: 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.033 c