Wie kann man ein Array leeren?

[Luckie]

Google, Sucher, erster Treffer: "delphi TObjectList"

[DeddyH]

Ist das zuviel verlangt, einmal einen Blick in die Hilfe oder die DP-Suchfunktion zu werfen? Ich meine, XE 2 Architect im Profil und sich dann alles vorkauen zu lassen geht irgendwie nicht zusammen, oder?

[Luckie]

Oder http://www.delphipraxis.net/dp_reference.php nach TObjetList suchen.

[DeddyH]

Hab ich doch sogar schon verlinkt ;)

[himitsu]

Ich mag die geheimen OH-Tags ... passend zur unbekannten F1-Taste. :stupid:
TObjectList

[CreativeMD]

Sorry aber in all diesen Links war keine einzige Antwort zu meiner Frage :(.
Ich habe auch schon in google gesucht.

[DeddyH]

So?

Zitat:

• class Contnrs.TObjectList » [DE] [FR]
• function Contnrs.TObjectList.Add » [DE] [FR]
• constructor Contnrs.TObjectList.Create » [DE] [FR]
• destructor Contnrs.TObjectList.Destroy » [DE] [FR]
• function Contnrs.TObjectList.Extract » [DE] [FR]
• function Contnrs.TObjectList.ExtractItem » [DE] [FR]
• function Contnrs.TObjectList.FindInstanceOf » [DE] [FR]
• function Contnrs.TObjectList.First » [DE] [FR]
• function Contnrs.TObjectList.GetItem » [DE] [FR]
• function Contnrs.TObjectList.IndexOf » [DE] [FR]
• function Contnrs.TObjectList.IndexOfItem » [DE] [FR]
• procedure Contnrs.TObjectList.Insert » [DE] [FR]
• property Contnrs.TObjectList.Items » [DE] [FR]
• function Contnrs.TObjectList.Last » [DE] [FR]
• procedure Contnrs.TObjectList.Notify » [DE] [FR]
• property Contnrs.TObjectList.OwnsObjects » [DE] [FR]
• function Contnrs.TObjectList.Remove » [DE] [FR]
• function Contnrs.TObjectList.RemoveItem » [DE] [FR]
• procedure Contnrs.TObjectList.SetItem » [DE] [FR]

Da kann man sogar draufklicken (vorzugsweise jeweils unter [DE]) :cyclops:.

[CreativeMD]

Danke ich weiß aber immer noch net.
Ich ich ein bestimmtes objekt einbinde.
Add(TButton) funktioniert net
Add(Labels[zahl]) funktioniert auch net
wie mache ich das?

[Sir Rufo]

Hier die Deklaration

Delphi-Quellcode:

uses
  Contnrs;

// statt Labels : array[0..100] of TLabel;
type
  TForm1 = class( TForm )
  ..
  private
    Labels : TList;
  end;

..

implementation

..

procedure TForm1.FormCreate( Sender : TObject );
begin
  Labels := TObjectList.Create;
end;

procedure TForm1.FormDestroy( Sender : TObject );
begin
  // Alle enthaltenen Objekte (hier die Labels) werden automatisch entsorgt
  Labels.Free;
end;

procedure TForm1.Button1Click( Sender : TObject );
var
  idx : integer;
  lbl : TLabel;
begin
  for idx := 1 to 100 do
  begin
    lbl := TLabel.Create( nil ); // keinen Owner angeben!!! Die Labels-Liste kümmert sich um die Freigabe!
    lbl.Parent := Self; // oder wer auch immer
    lbl.Caption := 'Hallo';
    ..
    Labels.Add( lbl );
  end;
end;

[Furtbichler]

Poste mal deinen Code.
Ich glaube, Du hast die 100 Label erzeugt und willst nun, das sie wieder verschwinden. Da reicht es natürlich nicht das Array oder die Liste oder die Objektliste oder was auch immer dein Container ist, zu nullen.

Um die Label zu erzeugen, instantiierst Du sie mit dem Konstruktor.
Um die Label zu entfernen, gibst Du es mit dem Destruktor frei.

Um ein Label unsichtbar zu machen, setzt Du Visible auf False oder entfernst den Text (Caption).

Der Konstruktor heißt Create, und der Destruktor heißt... Destroy.

Und weil Delphi nun mal ein wenig rumgefrickelei ist, verwendet man nicht den Destruktor direkt, sondern etwas, das viel toller ist, nämlich "Free".
Das macht das Gleiche, prüft aber vorher auf Nil.

Wenn Du das hier nicht verstanden hast, solltest Du erst einmal die grundlegenden Grundlagen von Delphi lernen.