Ĺadny brzuch
Mam pewne pytanko dotyczące destrukcji objektów podczas działania programu.
Więc na początku tworzę sobie kilka objektów klikając poprostu na button1 (to tylko przykład), a kod buttona to:
procedure TForm1.DodajClick(Sender: TObject); var CEdit: TEdit; {i: byte; - zmienna globalna} begin CEdit := TEdit.Create(Self); //Utworzenie Edita CEdit.Parent := Form1; // Przypisanie rodzica CEdit.Text := '0'; //Przypisanie zawartosci CEdit.Left := 50; //Okreslenie odleglosci wzgledem lewego brzegu ekranu CEdit.Top := 42 * i + 2; //Okreslenie odleglosci wzgledem gornego brzegu ekranu CEdit.Width := 280; //Przypisanie dlugosci komponentu CEdit.Height := 18; //Przypisanie wysokosci komponentu CEdit.Name := 'WymOpis' + IntToStr(i); //Przypisanie nazwy end;
Oczywiście te obiekty są tworzone w sposób prawidłowy, ale nie o to przecież mi chodzi, moje pytanie dotyczyć jak taki objekt mam poddać destrukcji (tzn. usunąć go z formatki. np. za pomocą drugiego buttona ;) )? Próbowałem poleceń typu:
destroy(CEdit.Name); CEdit.destroy; zm_nazwa.destroy; lub też zamiast .destroy wstawiał .free,
ale za każdym razem efekt był taki sam albo podobny, albo nie następowała kompilacja (wyskakiwał błąd), lub podczas działania programu wyskakiwał mi błąd i musiałem debugować całą aplikację wtedy. Wiem, że coś źle robię z tą destrukcją i chyba jest jakiś taki moduł czy procedura do tego, ale nie jestem pewny kiedyś coś chyba czytałem na ten temat w książce, ale książki tej już nie mam, a w internecie nie mogę się doszukać.
Więc proszę was drodzy koderzy o pomocną dłoń.
Pozdrawiam,
dr4co.
Z całą pewnością zmienna o nazwie Cedit powinna być zmienna globalną :lol:
A do destrukcji wystarczy
Cedit.free;
Temat do zamknięcia ;)
Dziwne, dałem CEdit jako zmienną globalną i CEdit.Free/Destroy; działa :)
Wybaczmy mu to :console: To jego pierwszy post, każdy musi zaistnieć jakoś na tym forum :D
Dziękuje za odpowiedź :).
Kurcze i to tylko przez tą zmienną globalną, a ja się tak z tym męczyłem (wcześniej).
Jeszcze raz dziękuje.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Więc na początku tworzę sobie kilka objektów klikając poprostu na button1 (to tylko przykład), a kod buttona to:
procedure TForm1.DodajClick(Sender: TObject); var CEdit: TEdit; {i: byte; - zmienna globalna} begin CEdit := TEdit.Create(Self); //Utworzenie Edita CEdit.Parent := Form1; // Przypisanie rodzica CEdit.Text := '0'; //Przypisanie zawartosci CEdit.Left := 50; //Okreslenie odleglosci wzgledem lewego brzegu ekranu CEdit.Top := 42 * i + 2; //Okreslenie odleglosci wzgledem gornego brzegu ekranu CEdit.Width := 280; //Przypisanie dlugosci komponentu CEdit.Height := 18; //Przypisanie wysokosci komponentu CEdit.Name := 'WymOpis' + IntToStr(i); //Przypisanie nazwy end;
Oczywiście te obiekty są tworzone w sposób prawidłowy, ale nie o to przecież mi chodzi, moje pytanie dotyczyć jak taki objekt mam poddać destrukcji (tzn. usunąć go z formatki. np. za pomocą drugiego buttona ;) )? Próbowałem poleceń typu:
destroy(CEdit.Name); CEdit.destroy; zm_nazwa.destroy; lub też zamiast .destroy wstawiał .free,
ale za każdym razem efekt był taki sam albo podobny, albo nie następowała kompilacja (wyskakiwał błąd), lub podczas działania programu wyskakiwał mi błąd i musiałem debugować całą aplikację wtedy. Wiem, że coś źle robię z tą destrukcją i chyba jest jakiś taki moduł czy procedura do tego, ale nie jestem pewny kiedyś coś chyba czytałem na ten temat w książce, ale książki tej już nie mam, a w internecie nie mogę się doszukać.
Więc proszę was drodzy koderzy o pomocną dłoń.
Pozdrawiam,
dr4co.
Z całą pewnością zmienna o nazwie Cedit powinna być zmienna globalną :lol:
A do destrukcji wystarczy
Cedit.free;
Temat do zamknięcia ;)
Dziwne, dałem CEdit jako zmienną globalną i CEdit.Free/Destroy; działa :)
Wybaczmy mu to :console: To jego pierwszy post, każdy musi zaistnieć jakoś na tym forum :D
Dziękuje za odpowiedź :).
Kurcze i to tylko przez tą zmienną globalną, a ja się tak z tym męczyłem (wcześniej).
Jeszcze raz dziękuje.