Hallo,
ich speichere in einer TObjectList unterschiedliche Objekte ab. Meine Frage lautet nun, wie kann ich beim auslesen der Objekte erkennen, um welches Objekt es sich handelt?

Die Objekte, welche ich in der List ablege, sind alle von einem anderen Objekt (TAuto) abgeleitet.
Ich habe folgendese probiert:

markieren

Code:

for i := 0 to ObjectList.Count - 1 do
begin
  Auto := TAuto(Result.Items[i]);

  if (Auto is TCabrio) then
     ShowMessage('Es ist ein Cabrio');

  if (Auto is TCoupe) then
     ShowMessage('Es ist ein Coupe');
end;

Funktioniert aber nicht.

Wäre nett, wenn mir jemand bitte helfen könnte. Bin wohl noch nicht ganz ausgeschlafen .
Vielen Dank.

Was bedeutet "funktioniert nicht"? Eigentlich sollte es, wenn ich nichts übersehen habe und die Daten auch wirklich stimmen.

Zitat von DeddyH:

Was bedeutet "funktioniert nicht"? Eigentlich sollte es, wenn ich nichts übersehen habe und die Daten auch wirklich stimmen.

Und ich würde sagen, dass ohne weiteren Code, das auch nicht funktioniert.
ObjectList vs Result ?

Na gut, so gesehen. Auf jeden Fall zu wenig Infos.

Ok, ich versuche es beispielhaft zu erklären.
Habe folgende Klassen:

TAuto:

markieren

Code:

 TAuto = class(TObject)
      private    
        FHersteller: string;    

      published
        property Hersteller: string read FHersteller write FHersteller;
      end;

TCabrio:

markieren

Code:

 TCabrio = class(TAuto)
      private    
        FSitze: integer;    

      published
        property FSitze: string read FSitze write FSitze;
      end;

TCoupe:

markieren

Code:

 TCoupe= class(TAuto)
      private    
        FSitze: integer;    

      published
        property FSitze: string read FSitze write FSitze;
      end;

Nun speichere ich Objekte in meiner TObjectlist:

markieren

Code:

var: AutoListe: TObjectList;
     Cabrio: TCabrio;
     Coupe: TCoupe:
     Auto: TAuto;

 AutoListe := TObjectList.Create;
 Auto := TAuto.Create;
 Auto.FHersteller := 'BMW';

 Coupe:= TCoupe(Auto);
 Coupe.FSitze := 4;

 AutoListe.Add(Coupe);



 Auto := TAuto.Create;
 Auto.FHersteller := 'VW';

 Cabrio:= TCabrio(Auto);
 Cabrio.FSitze := 2;

 AutoListe.Add(Cabrio);

Und hier möchte ich auselesen, um welches Objekt es sich handelt:

markieren

Code:

for i := 0 to ObjectList.Count - 1 do
begin
  Auto := TAuto(ObjectList.Items[i]);

  if (Auto is TCabrio) then
     ShowMessage('Es ist ein Cabrio');

  if (Auto is TCoupe) then
     ShowMessage('Es ist ein Coupe');
end;

Aber es wird mir keine ShowMessage-Box erzeugt, somit erkennt er mir auch nicht mein Objekt.

Dein Problem liegt hier:

Zitat von mcbain:

Nun speichere ich Objekte in meiner TObjectlist:

markieren

Code:

...
 Auto := TAuto.Create;
 Auto.FHersteller := 'BMW';

 Coupe:= TCoupe(Auto);
 Coupe.FSitze := 4;

 AutoListe.Add(Coupe);

...

Du erzeugst ein TAuto und castest dann in eine Unterklasse, speicherst aber immer "nur" ein TAuto. Sollte eigentlich so heißen:

markieren

Delphi-Quellcode:

Coupe := TCoupe.Create;
Coupe.FHersteller := 'BMW';
Coupe.FSitze := 4;
AutoListe.Add(Coupe);

Dies ist beispielhaft für jede Unterklasse von TAuto. Dann funktioniert es auch mit
if Objectlist[i] is TCoupe then...

Du erstellst die Objekte falsch. Versuch es mal so:

zusammenfalten · markieren

Delphi-Quellcode:

var: AutoListe: TObjectList;
     Cabrio: TCabrio;
     Coupe: TCoupe:
     Auto: TAuto;

 AutoListe := TObjectList.Create;

 Coupe:= TCoupe.Create;
 Coupe.Hersteller := 'BMW';
 Coupe.Sitze := 4;

 AutoListe.Add(Coupe);

 Cabrio := TCabrio.Create;
 Cabrio.Hersteller := 'VW';
 Cabrio.Sitze := 2;

 AutoListe.Add(Cabrio);

Hallo,


Wenn du eine Object vom Typ Caprio tatsächlich mit Create erzeugen würdest, dann könnte dein Code schon funktionieren.
Aber aus irgenteinem Grund erzeugst du immer Auto und behauptest über einen Cast das es ein Caprio ist bevor du Werte zuweist.

das kann der is Operator aber niemals auflösen.

mfg

DerDan

Du castest ja das Auto nur als Cabrio. Sein tut's immer noch ein TAuto ...So wird ein Schuh draus:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  AutoListe: TObjectList;
  Cabrio : TCabrio;
  Coupe : TCoupe;
  Auto : TAuto;
  ListenAuto : TObject;
  i : integer;
begin
  AutoListe := TObjectList.Create;
  Auto := TAuto.Create;
  Auto.FHersteller := 'BMW';

  Coupe:= TCoupe(Auto);
  Coupe.FSitze := 4;

  AutoListe.Add(Coupe);

  Auto := TAuto.Create;
  Auto.FHersteller := 'VW';

  Cabrio:= TCabrio.Create;
  Cabrio.FSitze := 2;

  AutoListe.Add(Cabrio);

  for i := 0 to AutoListe.Count - 1 do
  begin
    ListenAuto := AutoListe.Items[i];

    if (ListenAuto is TCabrio) then
    begin
       ShowMessage('Es ist ein Cabrio');
    end
    else if (ListenAuto is TCoupe) then
    begin
       ShowMessage('Es ist ein Coupe');
    end
    else
    begin
       ShowMessage(Auto.ClassName);
    end;
  end;
end;

Edit: ups, zu spät.

Das heißt, dass er mir nicht erkennt, um welche Klasse es sich handelt. Obwohl ich in meine ObjectList ein TCabrio eingetragen habe, erkennt er mir hier

markieren

Code:

if (Auto is TCabrio) then
     ShowMessage('Es ist ein Cabrio');

nicht, dass es sich um ein TCabrio Objekt handelt.

@Sir Rufo: Sorry, das heißt natürlich nicht Result sondern Objectlist.