| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Abstract Error

sat ©   (2006-12-12 23:13:00) 

вообщем так:

я написал модуль для работы со стеком
и мне еще надо в главной программе отображать работу со стеком...


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&&??


---

sat   (2006-12-12 23:24:00) [1]

спасибо oxffff действительно по глупости забыл поставить override

---

oxffff   (2006-12-12 23:21:00) [2]

Виртуальный метод объявлен как Abstract. И не "override"

---

AndreyRu   (2006-12-12 23:21:00) [3]

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;

---

Наверх