AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Variable für const array

Ein Thema von Benmik · begonnen am 1. Okt 2017 · letzter Beitrag vom 6. Okt 2017
Antwort Antwort
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.154 Beiträge
 
Delphi 10.3 Rio
 
#1

AW: Variable für const array

  Alt 2. Okt 2017, 13:34
emm...

Delphi-Quellcode:
Setlength(AEnum,length(Enum1))
For i:=0 to high(Enum1) do
  AEnum[i] := Enum1[i];
  Mit Zitat antworten Zitat
Benmik

Registriert seit: 11. Apr 2009
570 Beiträge
 
Delphi 12 Athens
 
#2

AW: Variable für const array

  Alt 2. Okt 2017, 13:49
Äh... das habe ich vornehm ausgelassen.
Die Möglichkeit ist mir schon bewusst.
Ich habe mich dummerweise darauf verbissen herauszukriegen, wie man diese Zuweisung hinbekommt.
Ich gestehe also, dass ich nicht ratlos bin, wie man das überhaupt macht, sondern dass ich nicht verstehe, wie man hier mit Delphi umgeht.
Schuld ist natürlich dieser elegante Code, der hier dauernd gepostet wird.
  Mit Zitat antworten Zitat
BerndS

Registriert seit: 8. Mär 2006
Ort: Jüterbog
493 Beiträge
 
Delphi 12 Athens
 
#3

AW: Variable für const array

  Alt 2. Okt 2017, 13:51
Oder so, ich habe es aber nicht getestet...
Delphi-Quellcode:
type
  TEnum = (eEins, eZwei, eDrei, eVier, eFünf, eSechs, eSieben, eAcht, eNeun, eZehn);
  TEnumArray = array of TEnum;
  PEnumArray = ^TEnumArray;

const
  Enum1: array [0 .. 4] of TEnum = (eEins, eDrei, eSechs, eSieben, eZehn);
  Enum2: array [0 .. 6] of TEnum = (eZwei, eVier, eFünf, eSechs, eAcht, eNeun, eZehn);

function IstDrin(VarE:TEnum;const AEnum: TEnumArray):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: PEnumArray;
begin
  case AEnumNr of
    1 : AEnum := @Enum1;
    2 : AEnum := @Enum2;
    else
      Exit;
  end;
  If IstDrin(eDrei,AEnum^)
    then ;
end;
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.643 Beiträge
 
Delphi 12 Athens
 
#4

AW: Variable für const array

  Alt 2. Okt 2017, 14:07
Zumindest in Berlin/Tokyo kannst du es so machen:
Delphi-Quellcode:
type
  TEnum = (eEins, eZwei, eDrei, eVier, eFünf, eSechs, eSieben, eAcht, eNeun, eZehn);

  TEnumArr = TArray<TEnum>;

const
  Enum1: TEnumArr = [eEins, eDrei, eSechs, eSieben, eZehn];
  Enum2: TEnumArr = [eZwei, eVier, eFünf, eSechs, eAcht, eNeun, eZehn];

function IstDrin(VarE: TEnum; const AEnum: TEnumArr): Boolean;
var
  VEnum: TEnum;
begin
  Result := False;
  For VEnum in AEnum do
    If VEnum = VarE then
      exit(True);
end;

procedure MachWas(AEnumNr: integer);
var
  i: integer;
  AEnum: TEnumArr;
begin
  case AEnumNr of
    1:
      AEnum := Enum1;
    2:
      AEnum := Enum2;
  end;
  If IstDrin(eDrei, AEnum) then;
end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.154 Beiträge
 
Delphi 10.3 Rio
 
#5

AW: Variable für const array

  Alt 2. Okt 2017, 14:16
Mit dem Pointer finde ich auch nicht so schön...

Enum1 und Enum2 sind ja wie globale Variablen...

Also warum nicht auch so benutzen...

Delphi-Quellcode:
Enum1,
Enum2 : Array of TEnum;

Procedure Init
begin
  Enum1 := [eEins, eDrei, eSechs, eSieben, eZehn];
  Enum2 := [eZwei, eVier, eFünf, eSechs, eAcht, eNeun, eZehn] ;
end;
Müsste doch auch gehen... Hab gerade keinen Compiler...
  Mit Zitat antworten Zitat
Benmik

Registriert seit: 11. Apr 2009
570 Beiträge
 
Delphi 12 Athens
 
#6

AW: Variable für const array

  Alt 2. Okt 2017, 14:36
@BerndS:
Auf die Zeigeridee war ich auch schon gekommmen, konnte es aber nicht umsetzen.
Dies hier funktioniert auch nicht.
Zum einen geht For..in nicht, was nicht weiter schlimm ist.
Aber in AEnum^ steht nur Unsinn, tausend Werte, alle außerhalb des Bereichs?
Warum ist das so?

@Uwe:
Und auch das hatte ich probiert. Ich hoffe, ich habe jetzt keinen Flüchtigkeitsfehler begangen, aber der Compiler sagt bei AEnum := Enum1; : "Inkompatible Typen: TArray<TEnum> und array[0..4] of TEnum.


Haaaalt, alles zurück! Ich hatte das Enum1: TEnumArr = [eEins, eDrei, eSechs, eSieben, eZehn]; nicht angepasst!
So geht es. Wie konnte ich daran zweifeln.
Danke!

Geändert von Benmik ( 2. Okt 2017 um 14:59 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.643 Beiträge
 
Delphi 12 Athens
 
#7

AW: Variable für const array

  Alt 2. Okt 2017, 14:40
@Uwe:
Und auch das hatte ich probiert. Ich hoffe, ich habe jetzt keinen Flüchtigkeitsfehler begangen, aber der Compiler sagt bei AEnum := Enum1; : "Inkompatible Typen: TArray<TEnum> und array[0..4] of TEnum.
Dann weicht dein Code noch irgendwo von meinem ab. Dort gibt es nämlich nirgendwo ein array[<irgendwas>] of .
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benmik

Registriert seit: 11. Apr 2009
570 Beiträge
 
Delphi 12 Athens
 
#8

AW: Variable für const array

  Alt 2. Okt 2017, 15:00
Wie schon geschrieben, du hast Recht. Danke dir.
  Mit Zitat antworten Zitat
Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.118 Beiträge
 
Delphi 2009 Professional
 
#9

AW: Variable für const array

  Alt 2. Okt 2017, 20:50
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;
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat
Antwort Antwort

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:11 Uhr.
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