Zeichen-Menge dynamisch erweitern

[michaelarban]

hallo,

ich habe folgende Menge:

erlaubteZeichen = ['a'..'z'];

Da diese Einschränkung auf Kleinbuchstaben zu inflexibel ist, möchte ich dieser Menge noch weitere Zeichen hinzufügen, die ich in einer Konfigurationsdatei definiere:

Beispiel Konfigurationdatei:
[SEKTION_WEITERE_ERLAUBTE_ZEICHEN]
1='Ü'
2='ü'
3='ä'

--> sowas funktioniert jedoch nicht
erlaubteZeichen = ['a'..'z'] + get_Zeichen_aus_KonfigDatei(); // get_Zeichen_aus_KonfigDatei() liefert 'ü, Ü, ä'


--> wie kann ich diese weiteren Zeichen meiner obigen
Variable erlaubteZeichen hinzufügen?

danke

[Klaus01]

Hallo,

Mengen werden mit or erweitert.
Hier findest Du ein Tutorial zu Mengen.

Grüße
Klaus

[DeddyH]

Das müsste gehen:
Include(Zeichen, 'ö');

[michaelarban]

hi,

include funktioniert nicht:

Include(ErlaubteZeichen , 'ö');
--> [DCC Fehler] Test.pas(119): E2064 Der linken Seite kann nichts zugewiesen werden

[Bummi]

Delphi-Quellcode:

var
 s:Set of Char;

procedure TForm6.Button1Click(Sender: TObject);
begin
  if 'ö' in s then Showmessage('Hallo');
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
     s := ['a'..'z'];
     Include(s,'ö');
end;

[DeddyH]

Include ist ja extra dafür da. Wieso das nicht will, kann ich ohne genaueren Blick auf den Code auch nicht sagen.

[michaelarban]

hi,
include funktioniert; ich hatte erlaubteZeichen als Konstante definiert gehabt.

danke