Infos aus Klassen

[Neutral General]

Hi,

Mir ist leider kein besserer Name eingefallen für den Thread

Ich habe ein Problem eines Freundes.
Problem vom Freund geschildert :

"In der combobox soll man das gebäude auswählen können [das man bauen will].
Wenn mans ausgewählt hat sollen aus der klasse baudauer,
kosten usw gelesen werden, in labels geschrieben werden,
auf nen knopfdruck soll man infos über das gebäude bekommen (ist auch ne Eigenschaft)."

Delphi-Quellcode:

type
 TGeb = class
 public
  Name : String;
  Inf  : String;
  Kosten : extended;
  Dauer  : extended;
end;

Delphi-Quellcode:

Wohnkomplex:        TGeb;
Haeuptlingszelt:    TGeb;
Lagerhuette:        TGeb;
Holzfaellerhuette:  TGeb;
Steinbruch:         TGeb;
Medizinmannzelt:    TGeb;
Kaserne:            TGeb;

So.. und die Kaserne bekommt bei der erstellung den Namen 'Kaserne'. Wenn jetzt in der ComboBox 'Kaserne' (Name von Kaserne) ausgewählt wird sollen auf anderen Labels die anderen Eigenschaften stehen. Natürlich ginge das mit einem Haufen if-Anweisungen. Aber geht es nicht auch besser ?
Abgesehn davon das man das ganze mit den Klassen und so besser machen könnte ^^

[SirThornberry]

in der Combobox die Items sind vom Typ TStrings, und TStrings hat das Objects-Property. Du könntest also für Objects einen pointer setzen der auf die entsprechenden Infos zeigt.

[Khabarakh]

Und wenn du zusätzlich die Felder deiner Klasse ordentlich in Properties verpackst (wie es sich sowieso gehört ), kannst du sie bequem per RTTI auslesen und die Labels dynamisch erzeugen, ohne irgendwelchen statischen Code wieLabelDauer.Caption := FloatToStr(Geb.Dauer); schreiben zu müssen .

Ob sich das für so eine kleine Klasse lohnt, ist eine andere Frage .

[Neutral General]

Zitat von SirThornberry:

in der Combobox die Items sind vom Typ TStrings, und TStrings hat das Objects-Property. Du könntest also für Objects einen pointer setzen der auf die entsprechenden Infos zeigt.

"Wir" haben das Problem jetzt auf ne andere Art gelöst. Mit nem Array of TGeb. Aber das würde mich ma interessieren wie das geht was du da oben geschrieben hast.. Ich probier mal da rum.. wenn ich nicht weiterkomme dann sag ich bescheid.. weil da kann ich auch noch was lernen wenns um Pointer geht

Ich habs jetzt so probiert aber das hat weder was mit Pointern zu tun noch funktioniert es

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  Caption := TGeb(ComboBox1.Items.Objects[0]).Name;
end;