Variablenwert Bestandteil einer Menge ? wie Zeitkritisch ???

[choose]

Zitat von richard_boderich:

@chewie,

deine loesung funzt nich [..]

Delphi-Quellcode:

var 
charset: array of set of byte;

Dynamische Arrays sind in der Handhabung etwas umständlicher, weil sie vor einem Zugriff zunächst initialisert (OH: SetLength) werden müssen.

Wenn ich Deine Anmerkung richtig deute, arbeitest Du mit vollstäding festen Werten, richard_boderich. Nutze in diesem Fall am besten konstante Arrays der Form

Delphi-Quellcode:

type
  TCharSet = set of Char;
const 
  Letters = ['A'..'Z'];
  Digits = ['0'..'9'];
  arSets: array[0..2] of TCharSet = 
    (Letters, Digits, [#0..#255]-Letters-Digits);
begin
  Result := AChar in arSets[AChoice];

noch eleganter bekommst Du das dann hin, indem Du einen Typen

Delphi-Quellcode:

type
  TChoice = (cLetters, cDigits, cMisc);

definierst und das array wie folgt deklarierst

Delphi-Quellcode:

const
  arSets: array[TChoice] of TCharSet