Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Runtime [D7, XP]

Help! © (2007-01-25 17:04:00)
Создаю в run-time
var
araylab:array[1..20] of Tlabel;

begin
araylab[arayl] :=Tlabel.Create(form1);
araylab[arayl].Font.Name:='Arial';

araylab[arayl].Name:=strParametr[0];
araylab[arayl].Width:=STRTOINT(strParametr[1]);
araylab[arayl].Height:=STRTOINT(strParametr[2]);
araylab[arayl].Left:=STRTOINT(strParametr[3]);
araylab[arayl].Top:=STRTOINT(strParametr[4]);
araylab[arayl].Caption:=strParametr[5];
araylab[arayl].Font.Color:=StringToColor(strParametr[6]);
araylab[arayl].Font.Size:= StringToColor(strParametr[7]) ;

araylab[arayl].Parent:= form1 ;

inc(arayl) ;
===================================================
for i := 0 to ComponentCount-1 do

if (Components[i] is TButton) then TButton(Components[i]).Free;

изачего вылетает Ошибка abstract Error

Плохиш (2007-01-25 18:28:00) [1]

> Help! © (25.01.07 17:04)

> изачего вылетает Ошибка abstract Error

Из-за того, что используешь абстрактные классы в неприведённом здесь коде. Позволю себе пофантазировать, пытаешься создать экземпляр TStrings...

Игорь Шевченко (2007-01-25 18:12:00) [2]
ночной кошмар программиста

Help! (2007-01-25 18:09:00) [3]
Несколько Tlabel

iXT (2007-01-25 18:06:00) [4]

> а я хочу их сам грохнуть и вивести другое

Кого их?

Help! (2007-01-25 17:55:00) [5]
а я хочу их сам грохнуть и вивести другое

araylab[arayl] :=Tlabel.Create(nil);
переправил на нул все равно тоже самое

Ega23 (2007-01-25 17:42:00) [6]
Всё равно: зачем? они и так грохнуться при убийстве формы. Ты же в явном виде форму в качестве владельца прописал:
araylab[arayl] :=Tlabel.Create( form1);

Help! (2007-01-25 17:41:00) [7]
Сори
for i := 0 to ComponentCount-1 do

Components[i].Free;

Ega23 (2007-01-25 17:25:00) [8]

> TButton(Components[i]).Free;

Это ещё нафига???

Наверх

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