Typen-Problem

[CalganX]

Hi,
ich weiß nicht, wie ich das in einem Wort fassen kann...
Naja, zumindest habe ich folgenden Typ:

Delphi-Quellcode:

type
  TVierEckTyp = (vet_Parallelogramm, vet_Quadrat, vet_Trapez, vet_Rechteck);

Nun wird während der Laufzeit die Variable VTyp vom Typ TVierEckType gesetzt. Das Problem: am Ende soll im Label LabelErg das Ergebnis stehen. Beispiel:

Wenn das Viereck ein Rechteck ist (also VTyp ist dann vet_Rechteck), dann soll im Label stehen:

Zitat:

Das Viereck ist ein Rechteck

Wie kann ich das so machen, dass ich also nur den "hinteren" Teil bekomme?

Chris

[Christian Seehase]

Moin Chris,

die einfache Variante wäre ein Konstanten Array mit den Texten zu erzeugen.

Delphi-Quellcode:

const
  _asShapeNames : array [TVierEckTyp] of string = ('Parallelogramm','Quadrat','Trapez','Rechteck');

Darauf kannst Du dann direkt mit einem der Werte Deines Typs als Index zugreifen.

[Chewie]

Zitat von Chakotay1308:

Nun wird während der Laufzeit die Variable VTyp vom Typ TVierEckType gesetzt. Das Problem: am Ende soll im Label LabelErg das Ergebnis stehen. Beispiel:

Wenn das Viereck ein Rechteck ist (also VTyp ist dann vet_Rechteck), dann soll im Label stehen:

Zitat:

Das Viereck ist ein Rechteck

Wie kann ich das so machen, dass ich also nur den "hinteren" Teil bekomme?

Chris

Ich verstehe dein Problem nicht ganz. Du deklarierst ja einen Aufzählungstyp, der nur vier Werte haben kann. Also entweder vet_Paralellogramm, vet_Quadrat, vet_Trapez oder vet_Rechteck, sonst nichts. Das kannst du ganz normal abfragen, als wären es beispielsweise Konstante:
if Eck = vet_Rechteck then Label1.Caption := 'Das Viereck ist ein Rechteck';

[CalganX]

Ja, dass Problem: ich habe null Bock für jeden Fall eine neue if-Abfrage zu machen, dass wird unübersichtlich!

Habe jetzt Christian's Vorschlag/Idee umgesetzt...

Chris

[Chewie]

Zitat von Chakotay1308:

Ja, dass Problem: ich habe null Bock für jeden Fall eine neue if-Abfrage zu machen, dass wird unübersichtlich!

Ah, jetzt ich habe verstanden