Runtime

← →
Help! © (2007-01-25 17:04) [0]

Создаю в 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

← →
Ega23 © (2007-01-25 17:25) [1]

> TButton(Components[i]).Free;

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

← →
Help! © (2007-01-25 17:41) [2]

Сори
for i := 0 to ComponentCount-1 do

Components[i].Free;

← →
Ega23 © (2007-01-25 17:42) [3]

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

← →
Help! © (2007-01-25 17:55) [4]

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

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

← →
iXT © (2007-01-25 18:06) [5]

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

Кого их?

Несколько Tlabel

ночной кошмар программиста

> Help! © (25.01.07 17:04)

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

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

Runtime Найти похожие ветки