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