Verschiedene TObject-Typen in TObjectList

[Yheeky]

Hi,

ich würde gerne folgende Situation mit TObjectList und TObject realisieren.
Ich habe ein Objekt Auto und Fahrrad:

Delphi-Quellcode:

type
  TAuto = class(TObject)
  Marke,
  Modell : String;
  AnzahlTueren : Integer;
end;

type
  TFahrrad = class(TObject)
  Marke,
  Modell : String;
  Gaenge : Integer;
end;

Ich hätte jetzt gerne eine Sammlung mit den Objekten. Wie mache ich das, wenn ich mich bei der Sammlung nicht auf einen Typen festlegen möchte?

[Aenogym]

Delphi-Quellcode:

uses contnrs;

{ ... }

var ol: TObjectList;
begin
  ol := TObjectList.create();

  //hinzufügen:
  ol.add(auto1);
  ol.add(fahhrad1);
  ol.add(auto2);

  //und wieder bekommen:
  case ol[0].ClassType of
    TAuto: showmessage('es ist ein auto');
    TFahrrad: showmessage('es ist ein fahrrad');
  end;
end;

Grüße,
Steffen

[Yheeky]

Zitat von Aenogym:

Delphi-Quellcode:

uses contnrs;

{ ... }

var ol: TObjectList;
begin
  ol := TObjectList.create();

  //hinzufügen:
  ol.add(auto1);
  ol.add(fahhrad1);
  ol.add(auto2);

  //und wieder bekommen:
  case ol[0].ClassType of
    TAuto: showmessage('es ist ein auto');
    TFahrrad: showmessage('es ist ein fahrrad');
  end;
end;

Grüße,
Steffen

Super, so einfach geht das?! Danke!

Die Zeile case ol[0].ClassType of funktioniert aber so nicht..."Ordinaltyp erforderlich" ist die Meldung. Mit IF funktioniert´s aber

[tomsel]

Was bei deinem Beispiel nicht funktionieren würde wären zugriffe auf die Eigenschaften Marke und Modell, ohne dabei den Klassentyp zu prüfen. Hier kann man eine gemeinsame Oberklasse extrahieren, z.Bsp. "Fahrzeug"

Delphi-Quellcode:

type 

  TFahrzeug = class
  public
    Marke, 
    Modell : String; 
  end;

  TAuto = class(TFahrzeug) 
  public
    AnzahlTueren : Integer; 
  end; 

  TFahrrad = class(TFahrzeug) 
  public
    Gaenge : Integer; 
  end;

Dann geht auch sowas:

  ShowMessage(ol[0].Marke + ' ' + ol[0].Modell); [edit] geht natürlich so nur, wenn ol eine spezielle Objektliste ist. Sonst muss man dabei zumindest auf TFahrzeug casten. [/edit]

[Aenogym]

Zitat von Yheeky:

Die Zeile case ol[0].ClassType of funktioniert aber so nicht..."Ordinaltyp erforderlich" ist die Meldung. Mit IF funktioniert´s aber

Sorry, das stimmt natürlich.

Zitat von tomsel:

Was bei deinem Beispiel nicht funktionieren würde wären zugriffe auf die Eigenschaften Marke und Modell, ohne dabei den Klassentyp zu prüfen. Hier kann man eine gemeinsame Oberklasse extrahieren, z.Bsp. "Fahrzeug"

Wenn man erstmal weiß, welcher Typ sich hinter dem Objekt befindet, könnte man auch with (ol[0] as TAuto) do benutzen. Zumindest hätte ich es so gemacht
edit: Aber das Einführen der Oberklasse ist natürlich sinnvoll und besserer Stil.

Steffen

[Yheeky]

Zitat von Aenogym:

Aber das Einführen der Oberklasse ist natürlich sinnvoll und besserer Stil.

So hab ich´s nun auch gemacht - danke!