Variable zur Laufzeit erstellen

[malo]

Zitat:

Zitat von Der_Unwissende

Zitat:

Zitat von ichbins

wieso sind dynamische Arrays denn sinnloser als Listen? Weil sie weniger Speicher verbrauchen? Weil sie auch mehrdimensional möglich sind? :gruebel:

Wo hast du nur diese lustigen Ideen her? Weniger Speicher? Wie kommst du denn darauf? All die Aufräumarbeiten, die eine TObjectlist leistet, stellt dir doch ein Array nicht automatisch zur Verfügung. Und (hier liegt das Problem) die wenigsten rufen ein finalize und setLength(array, 0) auf

Aber du willst mir erzählen, dass jeder, der eine TObjectList erzeugt, sie auch wieder freigibt? :shock:

Zitat:

Zitat von Der_Unwissende

Zitat:

Zitat von malo

Nur weil du für jeden Furz ein Objekt erzeugst, muss das ja nicht heißen, dass das automatisch besser ist als irgendetwas anderes.

Man, hätte man das früher gewusst, ich glaube man hätte die Objekt Orientierung nie erfunden :mrgreen:
Ist nur merkwürdig das man in Delphi Objekte eingeführt hat, man kam doch so schön ohne aus...
Ich meine die wertvollen microsek. die es kostet ein Objekt zu erzeugen, der riesige Speicheroverhead von ein paar Bytes pro Objekt und wofür? Nur weil die einem jede Menge sonst nicht vorhandener Einfachheit zur Verfügung stellen?!

Nieder mit der OOP!!!! Ehrlich!

:gruebel:

Ich hab nicht gesagt, dass die OOP nicht ihre Vorzüge hat, geschweige denn dass sie schlecht ist :shock:

Ich meinte nur, dass es nicht immer notwendig ist, ein Objekt zu erzeugen. Manche Dinge sind anders viel leichter zu handhaben, wenn man kein Objekt erzeugt, bzw. bieten einem einfach keine besonderen Nachteile, die zwingend sind, ein Objekt zu erzeugen.
Für einfache Listen mit Variablen (dabei auch Komponentenerzeugung etc.) verwende ich i.d.R. auch Arrays. Wenn es darum geht, längere Listen zu erzeugen und zu verwalten, verwende ich Listen (TObjectList). Ich nehme immer das, was ich brauche.

[Scorpion]

Eine Frage hätte ich noch...

Wenn ich die Komponenten so wie Der_Unwissende erstelle, also per ObjectList klappt das wunderbar.
Doche welche Namen haben die Komponenten denn dann ?

Gruß,
Nico

[leddl]

Schau dir den Code doch mal genau an, da steht doch alles drin.

Delphi-Quellcode:

var list : TObjectList 
    image : TImage; 
begin 
  list := TObjectList.Create; 
  list.Add(TImage.Create(nil)); 
  image := TImage(list.get(0)); //<--
  .... 
  .... 
end;

An der markierten Stelle wird das 1. Element aus der Liste geholt und zu einem TImage gecastet.

[Scorpion]

:wall: *g* wie dumm, jetzt hab ichs...

Sagt mal, eine ObjectList kann man nicht 2 Spaltig machen ? :gruebel:

Bzw. mein Problem liegt auch darin, woher weiss ich denn, wenn ich eine Komponente ansprechen will, das wievielte Element es der Liste ist ?

[Der_Unwissende]

Zitat:

Zitat von Scorpion

:wall: *g* wie dumm, jetzt hab ichs...

Sagt mal, eine ObjectList kann man nicht 2 Spaltig machen ? :gruebel:

Bzw. mein Problem liegt auch darin, woher weiss ich denn, wenn ich eine Komponente ansprechen will, das wievielte Element es der Liste ist ?

Nun ja, du speicherst einfach nur die Referenz auf ein Objekt. Da musst du nichts zweispaltig machen (kann man natürlich auch). Du hast natürlich auch alle Eigenschaften der gespeicherten Objekte. D.h. du kannst auch folgendes tun:

Delphi-Quellcode:

var list : TObjectList;
    buffer : TImage;
    i : Integer;
begin
  list := TObjectList.Create;
  buffer := TImage.Create(nil);
  buffer.name := ...;
  list.add(buffer);
  ...
  ...
  if list.Count > 0 then
    begin
      for i := 0 to buffer.Count - 1 do
        begin
          if TImage(buffer.Items[i]).name = .... then
            begin
              // tu was du möchtest
              break; 
            end;
        end; 
    end; 
end;

Mit dem Weg kannst du natürlich nach einer beliebigen Eigenschaft suchen (Name ist halt meistens eher unwichtig, wenn man erst zur Laufzeit erstellt).
Aber wenn es nur um den Namen geht, kannst du auch so nach dem Element suchen

Delphi-Quellcode:

var list : ComponentList;
    i : Integer;
begin
  ...
  ...
  if list.Count > 0 then
    begin
      for i := 0 to list.Count - 1 do 
        begin
          if list.Items[i].name = .... then
            begin
              // mach was du willst 
              break;
            end; 
        end; 
    end; 
end;

[Scorpion]

Mein Problem, leider immernoch:

Ich habe jetzt mehrere TImages erstellt. Wenn ich jetzt ein bestimmes ansprechen will, sagen wir ich klicke drauf. Woher weiss ich dann den Komponentennamen ??

[Khabarakh]

Mit dem Parameter Sender bekommst du doch das aktuelle Image. Den Index des Images kannst du dann über TObjectList.IndexOf ermitteln

[Scorpion]

Stimmt, thx