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
Benmik

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

Variable für const array

  Alt 1. Okt 2017, 18:00
Ich habe mehrere Arrays eines selbst definiertes Typs, die als Konstanten deklariert sind.
Je nach Bedarf möchte ich eins der Arrays an eine Funktion verfüttern.

Es gelingt mir aber nicht, eine Variable zu definieren, der ich so ein konstantes Array zuweisen und dann als Parameter an die Funktion senden könnte, da eine solche Variable ja als dynamische Variable deklariert werden muss (die Länge ist ja je nach const array verschieden), aber die Arrays eben const sind, und das ist mit dem Compiler nicht zu machen.
Ich habe mir unter anderem dies hier zu Gemüte geführt, aber mein Problem löst das nicht. Auch mit Generics kriege ich das nicht hin.

Ich vermute mal stark, dass ihr das aus dem Ärmel schüttelt.

Übrigens geht es um eine Enumeration mit mehr als 256 Items, und ich möchte feststellen, ob ein bestimmtes Item dieser Enumeration in einem konstanten Subset vorhanden ist.
  Mit Zitat antworten Zitat
Delphi-Laie

Registriert seit: 25. Nov 2005
1.474 Beiträge
 
Delphi 10.1 Berlin Starter
 
#2

AW: Variable für const array

  Alt 1. Okt 2017, 22:19
Ich vermute mal stark, dass ihr das aus dem Ärmel schüttelt.
Anscheinend nicht, denn bisher antwortete niemand.

Gib doch mal am besten ausreichend Quelltext preis und markiere die Zeile, in der der Compiler stehenbleibt, und gib auch die Compilermeldung mit an.

Das alles sagt mehr als tausend (Deiner) Wörter.
  Mit Zitat antworten Zitat
Redeemer

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

AW: Variable für const array

  Alt 1. Okt 2017, 23:12
Ich habe keine Ahnung, wo das Problem sein soll, denn ich verwende derzeit konstante Arrays eines Records in meinem SVG-Interpreter, da für einen XPM-Interpreter auch X11-Farben benötigt werden:
Delphi-Quellcode:
type
  TColorName = record
    Color: TColor;
    Name: string;
  end;

function HTMLToColor(HTML: string; out Color: TColor; const ColorNames: array of TColorName): Boolean;

const
  CSSColors: array[0..146] of TColorName = ((Color: $00FFF8F0; Name: 'aliceblue'),
  (* here be 145 dragons *)
                                            (Color: $0032CD9A; Name: 'yellowgreen'));

implementation

begin
  HTMLToColor('rebeccapurple', tempcolor, CSSColors); // funktioniert einwandfrei
end;
Wenn's gar nicht anders geht: packed array s mit Pointern verwenden wie Windows das macht. Aber das sollte doch eigentlich ganz normal gehen.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat
Benmik

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

AW: Variable für const array

  Alt 2. Okt 2017, 14:29
War natürlich ein Fehler, keinen Beispielcode mitzuliefern.
Delphi-Quellcode:
type
  TEnum =(eEins,eZwei,eDrei,eVier,eFünf,eSechs,eSieben,eAcht,eNeun,eZehn);
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:array of TEnum):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:array of TVarEnum;
begin
  case AEnumNr of
    1 : AEnum := Enum1;
    2 : AEnum := Enum2;
  end;
  If IstDrin(eDrei,AEnum)
    then ... ;
end;
Der Knackpunkt ist AEnum := Enum1 . Der Compiler sagt (zu Recht), dass ein array[0..4] of TEnum nicht das Gleiche ist wie ein dynamisches Array von TEnum.
Ich suche eine Möglichkeit, die verschiedenen Enum1..Enum10 mit einer Variable an die Funktion zu übergeben.
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

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

AW: Variable für const array

  Alt 2. Okt 2017, 14: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
 
#6

AW: Variable für const array

  Alt 2. Okt 2017, 14: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
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 15:17 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 by Thomas Breitkreuz