also jungs... es funktioniert alles mit:
Delphi-Quellcode:
With ScrollBox123 do
While ControlCount > 0 do Controls[0].Free;
und zwar ist es so das alle Componenten die gelöscht werden sollen sich soweso in ScrollBox123 befinden.
Von daher klappt es super...
Zitat von
QuickAndDirty:
Zitat von
tomate007:
Delphi-Quellcode:
if pruefung = true then begin
for i:= 1 to AnzahlSpalten-1 do begin
TEdit(Scrollbox1.FindComponent('Edit'+ IntToStr(i))).Free;
TLabel(Scrollbox1.FindComponent('Label'+ IntToStr(i))).Free;
end;
end;
SO GEHT DAS NICHT
wenn du die erste gelöscht hast gibt es die letze schon nicht mehr.
machs so
Delphi-Quellcode:
if pruefung = true then
begin
for i:= AnzahlSpalten-1 downto 1 do
begin
TEdit(Scrollbox1.FindComponent('Edit'+ IntToStr(i))).Free;
TLabel(Scrollbox1.FindComponent('Label'+ IntToStr(i))).Free;
end;
end;
Genau, wie Deep-Sea schon geschrieben hat geh ich da auf den Namen und nicht auf den Index, nur natürlich war dies zu langsam da ich die FindComponent-Sache mit drin hatte welche, wie ich es heut gelernt habe, sehr sehr langsam ist.
Würde jedem empfehlen der viele Componenten, dass er einfach nen panel macht und da die dinger drauf setzt die entfernt werden sollen und dann halt mit dem Code oben die Objects löscht.
Zitat von
Deep-Sea:
Zitat von
tomate007:
Es funktioniert!!!!!
Was hast du erwartet?!
Naja... das es klappt wenn der Code schon von einem Deep-Sea kommt dann muss er ja klappen
Also nochmal
ICH DANKE EUCH ALLEN!!!!
MFG
Andre
@Mod Thema kann geschlossen werden von meiner Seite aus.