AW: Variable für const array
Zitat:
Delphi-Quellcode:
.
array[<irgendwas>] of
|
AW: Variable für const array
Wie schon geschrieben, du hast Recht. Danke dir.
|
AW: Variable für const array
Darf ich noch fragen, warum die Lösung von BerndS nicht funktioniert?
|
AW: Variable für const array
Noch 'ne Variante:
Delphi-Quellcode:
type
TEnum =(eEins,eZwei,eDrei,eVier,eFünf,eSechs,eSieben,eAcht,eNeun,eZehn); type TEnumarray = packed array[0..4711] of TEnum; const Enum1 : packed array[0..4] of TEnum = (eEins,eDrei,eSechs,eSieben,eZehn); Enum2 : packed array[0..6] of TEnum = (eZwei,eVier,eFünf,eSechs,eAcht,eNeun,eZehn); function IstDrin(VarE:TEnum;const AEnum: TEnumarray; Size: Integer):Boolean; var i: Integer; begin Result := False; For i := 0 to Size - 1 do If AEnum[i] = VarE then exit(True); end; procedure MachWas(AEnumNr:integer); var i:integer; AEnum: ^TEnumarray; ASize: Integer; begin case AEnumNr of 1: begin AEnum := @Enum1; ASize := Length(Enum1); end; 2: begin AEnum := @Enum2; ASize := Length(Enum2); end; end; If IstDrin(eSieben,AEnum^, ASize) then writeln('ist drin'); end; |
AW: Variable für const array
Zitat:
|
AW: Variable für const array
Du liebe Zeit. Auf sowas soll man kommen. Danke.
|
AW: Variable für const array
Ja, da hätte ich es doch besser vorher testen sollen, was ich nachträglich noch gemacht habe.
Allerdings hätte ich es wahrscheinlich den Beispielprojekt nicht mit einem Array sondern per Set gemacht.
Delphi-Quellcode:
type
TEnum = (eEins, eZwei, eDrei, eVier, eFünf, eSechs, eSieben, eAcht, eNeun, eZehn); TEnumSet = set of TEnum; const Enum1 = [eEins, eDrei, eSechs, eSieben, eZehn]; Enum2 = [eZwei, eVier, eFünf, eSechs, eAcht, eNeun, eZehn]; function IstDrin(VarE:TEnum;const AEnum: TEnumSet):Boolean; var VEnum:TEnum; begin Result := False; For VEnum in AEnum do If VEnum = VarE then exit(True); end; procedure MachWas(AEnumNr:integer); var AEnum: TEnumSet; begin case AEnumNr of 1 : AEnum := Enum1; 2 : AEnum := Enum2; else Exit; end; If IstDrin(eDrei,AEnum) then ; end; |
AW: Variable für const array
Zitat:
|
AW: Variable für const array
Die Variante gefällt mir aber auch gut.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:51 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz