if Zeichen in Buchstaben then -> funktioniert nicht

[Sharky]

Zitat von jfheins:

Umwandeln geht glaub och nicht, du müsstst ihn von anfang an als Menge deklarieren ...

Delphi-Quellcode:

var
  buchstaben : Set of Char;

function ZeicheninSet(Zeichen:Char) : Boolean;
begin
  result := zeichen IN buchstaben;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  buchstaben := ['a'..'f','y','z'];  // Set direkt setzen.
  if ZeichenInSet('a') then
  begin
    ShowMessage ('blubb');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);  //Arry in SET schreiben.
var
  foo : Array Of Char;
  ndx : Integer;
begin
  buchstaben := []; // Set löschen
  SetLength(foo,4); // Array setzen
  foo[0] := 'a'; // Array füllen
  foo[1] := 'b';
  foo[2] := 'c';
  foo[3] := 'd';

  for ndx := Low (foo) to High(foo) do
  begin
    buchstaben := buchstaben + [foo[ndx]];  // Array in das Set schreiben
  end;

  if ZeichenInSet('x') then
  begin
    ShowMessage ('blubb');
  end;
end;