Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Einen Datentyp zu ordnen oder so ähnlich (https://www.delphipraxis.net/78900-einen-datentyp-zu-ordnen-oder-so-aehnlich.html)

messie 12. Okt 2006 21:30

Re: Einen Datentyp zu ordnen oder so ähnlich
 
Zitat:

Zitat von mkinzler
Ich hatte da eher an eine problembezogene Superklasse gedacht, aber auf TObject kann man sich natürlich immer beziehen.

...das sind so die Aussagen, über die man sich freut, wenn man "gerade reingestolpert" ist!

Grüße, Messie (ewiger "gerade reingestolpert")

mkinzler 12. Okt 2006 21:30

Re: Einen Datentyp zu ordnen oder so ähnlich
 
Delphi-Quellcode:
(Spielfelder[1] as TSpielfelder).Titel := 'Pantomime!';
oder
Delphi-Quellcode:
TSpielfelder( Spielfelder[1]).Titel := 'Pantomime!';

mkinzler 12. Okt 2006 21:31

Re: Einen Datentyp zu ordnen oder so ähnlich
 
Zitat:

Zitat von messie
Zitat:

Zitat von mkinzler
Ich hatte da eher an eine problembezogene Superklasse gedacht, aber auf TObject kann man sich natürlich immer beziehen.

...das sind so die Aussagen, über die man sich freut, wenn man "gerade reingestolpert" ist!

Grüße, Messie (ewiger "gerade reingestolpert")

Das war auch eine Anwort, die an den den Forumsborg adressiert war.

der_wuwu_depp 12. Okt 2006 21:33

Re: Einen Datentyp zu ordnen oder so ähnlich
 
aaah! ok, danke!
Aber irgendwie das Ganze in einer Varaibelen speichern und per Spielfelder[1].Titel zugreifen geht nicht, oder?

Also z.B.

Delphi-Quellcode:
    Spielfelder[1] := (Spielfelder[1] as TSpielfeld);
    Spielfelder[1].Titel := 'Pantomimie!';
?

r2c2 13. Okt 2006 08:46

Re: Einen Datentyp zu ordnen oder so ähnlich
 
Wie schon erwähnt, mach ne Basisklasse und schon gehts:
Delphi-Quellcode:
// pseudocode:
  TFeld = class(TObject)
  private
    FTitel: string;
    ...
  public
    property Titel: string read FTitel write FTitel;
    ...
  end;

  TPantomimeFeld = class(TFeld);
  ...
  end;

  TSonstwasFeld = class(TFeld);
  ...
  end;

...

procedure TForm1.Test;
var
  Felder = array[0..5] of TFeld;
  i: integer;
  ...
begin
  ...
  for i := 0 to 5 do
  begin
    Memo1.Lines.Add(Felder[i]);
  end;
end;
mfg

Christian


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:41 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz