TCollection & TCollectionitem Tutorial

[himitsu]

Zitat von MrBrown90:

Ok, ich hab hier ein Beispiel von embarcadero:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  PanelIndex : Integer;
begin
  with StatusBar1 do
  begin
    Panels.BeginUpdate;
    PanelIndex := StatusBar1.Panels.Count - 1;
    try
      Panels.Add;
      Inc(PanelIndex);
      Panels.Items[PanelIndex].Text := 
         'Panel' + IntToStr(PanelIndex);
    finally
      Panels.EndUpdate;
    end;
  end;
end;

Was ich nicht verstehe, wenn ich Panels.Add Aufrufe...muss ich da kein Parameter übergeben?

Wozu sollte man da auch einen Parameter übergeben?

"GibMirEinNeuesItem" sagt doch schon alles.

Auch wenn der Beispiel-Code an sich schon nicht grade der Beste ist.

Delphi-Quellcode:

Panels.BeginUpdate;
try
  NewPanel := Panels.Add;
  NewPanel.Text := 'Panel' + IntToStr(StatusBar1.Panels.Count - 1);
finally
  Panels.EndUpdate;
end;

Man verwendet gefälligst den Rückgabewert der "Funktion" und arbeitet damit weiter.


Vorallem da du dich grade mit Threads/Nebenläufigkeit beschäftigst.
Etwas erstellen und dann an "zufälliger" Stelle etwas rausholen, was "womöglich" dein grade Erstellstes ist ... da kann schnell mal was "Anderes" raus kommen, wenn nebenher jemand die Liste verändert.



PS: StatusBar1.Panels.Count : Warum StatusBar1. , wo man doch eh grade in dem bösen with StatusBar1 do drin ist?