Hallo zusammen,
ich suche eine Möglichkeit ein Enum, um Datentypen zu erweitern. Also quasi davon abzuleiten und dann etwas hinzu fügen.
Um das Ganze zu verdeutlichen hier ein kleines Beispiel dazu:
Delphi-Quellcode:
TObst = (Apfel, Birne, Pflaume);
TGemuese = (Moehre, Lauch, Gurke);
TGesundeSachen = set of TObst AND TGemuese;
implementation
procedure TForm6.FormCreate(Sender: TObject);
var aSchale : TGesundeSachen;
tmp : String;
begin
aSchale := [Moehre, Apfel];
tmp := '';
case aSchale of
Apfel:
tmp := tmp + 'Apfel, ';
Birne:
tmp := tmp + 'Birne, ';
Pflaume :
tmp := tmp + 'Pflaume, ';
Moehre:
tmp := tmp + 'Moehre, ';
Lauch:
tmp := tmp + 'Lauch, ';
Gurke:
tmp := tmp + 'Gurke, ';
end;
ShowMessage('Der Obstsalat enthält ' + tmp);
end;
Wie ihr seht versuche ich Obst und Gemüse auf diese Art zusammen bekommen? Das funktioniert aber nicht werder mit OR, noch mit AND, noch mit einem Komma.
Geht sowas in Delphi(2007) überhaupt?
Vielen Dank,
Tobi