Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

Почему не могу прибить Shape?   Найти похожие ветки 

 
XM-AD   (2003-02-25 10:45) [0]

В RunTime создаю несколько компонентов TShape, каждому за которых присваиваю свое имя, point0, point1 и т.д. Потом, далее по программе деляю такую каку:

myshape:=TShape(FindComponent("point"+IntToStr(lwcount)));
myshape.destroy;

И естественно не пашет :( В чем проблема? И как надо?


 
Zergling   (2003-02-25 11:25) [1]

procedure TForm1.Button2Click(Sender: TObject);
var I: Integer;
begin
for I:= Form1.ComponentCount-1 Downto 0 do
begin
if (Form1.Components[I] is TShape) then Form1.Components[I].Free;
end;
end;

Вместо Destroy рекомендуется использовать Free т.к. Free проверяет существование объекта, если он есть, то приступет к его уничтожению. Destroy не проверяет существование объекта т.е. при попытке удолить не существующий объект будет глюк.

При создании нового объекта укажи ему родителя. Родитель сам позаботиться об уничтожении дочернего объекта. Возможно тебе даже не понадобится выше изложенное.
MyShape := TShape.Create(Form1);


 
SS   (2003-02-25 12:54) [2]

Поправочка!

procedure TForm1.Button2Click(Sender: TObject);
var I: Integer;
begin
for I:= Form1.ComponentCount-1 Downto 0 do
begin
if (Form1.Components[I] is TShape) then
begin
Form1.Components[I].Free;

!!!!! Dec(I);
end;
end;
end;





 
Sheriff   (2003-02-25 13:35) [3]

на dec(i); будет ругань
i:=0;
while i<Form1.ComponentCount do begin
if (Form1.Components[I] is TShape) then Form1.Components[I].Free else inc(i);
end;


 
Zergling   (2003-02-25 13:38) [4]

SS (25.02.03 12:54)

>> !!!!! Dec(I);

И че компиляция OK ???



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.039 c
3-16867
Roman Go
2003-02-18 10:04
2003.03.06
Кто нибудь видел DBGrid


3-16868
Roman Go
2003-02-18 10:12
2003.03.06
Нужно ли устанавливать ACCESS, если я использую *.mdb


3-16892
al11
2003-02-14 11:49
2003.03.06
возможно что-то намудрил с QUERY Помогите!!!


1-17013
multik
2003-02-24 19:41
2003.03.06
Как перетащить элемент в Treeview е


14-17270
Шоломицкий
2003-02-19 14:57
2003.03.06
DBNavigator





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский