Objekte gezielt aufrufen

[Tod787]

Hallo, habe folgendes Problemchen:

Ich habe eine Klasse mit Feldern

Zitat:

TMyclass (Field1, Field2, Field3)

und mehrere Objekte davon

Zitat:

Objekt1 := TMyclass.create
Objekt2 := TMyclass.create mit Feldern
Object3 := TMyclase.create mit Feldern

Wenn ich jetzt eine Variable y habe die von 1-3 geht... Wie schaffe ich das richtige Objekt aufzurufen?

sprich wenn

Zitat:

y = 3

soll

Zitat:

Object3

aufgerufen werden. Da ich mehrere 100 Objekte habe möchte ich auf Verzweigungen verzichten.

Kurz: Gibt es eine Methode mit der man das Ganze so ähnlich schreiben kann wie

Zitat:

object + y.field1 := true;

[Luckie]

Pack deine Objekte in eine TObjectList, dann kannst du sie über einen Index ansprechen.

[Tod787]

Erstmal danke!

Möchte mich an ein Beispiel hier aus dem Forum richten.

Delphi-Quellcode:

var 
   liste:TObjectlist; 
begin 
  liste.add(TObjekt.create('Test1')); 
  liste.add(TObjekt.create('Test2')); 
end;

Bei mir kommt allerdings eine Fehlermeldung bei der Deklaration.
Was muss denn noch in den "Uses-Teil" damit TObjectlist deklariert werden kann?

Edit: Hat sich erledigt!

type TObjectList = class (Classes.TList); Also nix uses

[automatix]

Hallo!

Zuerst sollte irgendwo bevor auf die Liste zugegriffen wird ein
list := TObjectList.Create; stehen.

Die uses Anweisung sollte um Contnrs erweitert werden.

Grüße

[DeddyH]

uses Contnrs; Also doch uses

[Sherlock]

Wenn in einem Beitrag etwas so hervorgehoben wird: TObjectList, dann bedeutet es, daß Du dazu etwas in der Onlinehilfe Deines Delphi findest. Wenn du dort nach TObjectList suchst, dann findest Du ganz schnell alle nötigen Informationen.

Sherlock

[Tod787]

Guten Morgen Sherlock, danke, hab es dann auch gemerkt

Jetzt hab ich allerdings doch noch ein Problem das in der Hilfe nciht geschildert wird.

Ich möchte nämlich in jeder Zeile der Liste ein Array of TObject haben.

Delphi-Quellcode:

Interface 

(...)

type TObject = class(TObject)
    // Felder
    Field1: Single;
    Field2: Single;
    Field3: Integer;
    Field4: Integer;
end;

(...)

var

   MyObject1: array[0..20] of TObject;
   MyObject2: array[0..20] of TObject;
   MyObject3: array[0..20] of TObject;
   MyObject3: ...
   

   liste: TObjectlist;

Implemetation:
   MyObject1 := TObject.create;
   MyObject2 := TObject.create;
   MyObject3 := TObject.create;
   MyObject4 := ...

Wie kann ich das jetzt mit einer Objectlist realisieren?

Meine bescheide Anfänge wären:

Delphi-Quellcode:

Interface 

(...)

type TObjectList = class (Classes.TList)
    // Felder
    Field1: Single;
    Field2: Single;
    Field3: Integer;
    Field4: Integer;
end;

(...)

var

   liste: TObjectlist;

Implemetation:

(...)   

begin 
    liste.add(TObjekt.create('Test1')); 
    liste.add(TObjekt.create('Test2')); 
end;

Aber wie bekomme ich das mit Arrays hin?

[Sherlock]

Also, leg doch in die ObjectList weitere ObjectLists.

Sherlock

[DeddyH]

Und nimm die aus der Unit Contnrs statt einer eigenen Implementierung. Btw: "TObject" als eigener Klassenname ist mehr als unglücklich.

[Sherlock]

Delphi-Quellcode:

liste.add(TObjekt.create('Test1'));
liste.add(TObjekt.create('Test2'));

Allein wegen dieser beiden Zeilen ist das ganze bisher doch sowieso eher akademischer Natur.



Sherlock