Variablenwert Bestandteil einer Menge ? wie Zeitkritisch ???

[Sharky]

Hai richard,

wir haben dich schon verstanden

Du möchtest es also so haben:

Delphi-Quellcode:

implementation

{$R *.dfm}

type
  tset = set of byte;

var
  i : Integer;
  x : Byte;
  charset: array[1..3] of tset;  // Statiches Array

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 1;  // CharSet 1 ist Standard
  charset[1] := [46..255];  // Initialisierung der 
  charset[2] := [46..200];  // CharSets
  charset[3] := [21..255];
end;

procedure Anzeige;
begin
 //  Zum füllen deiner StringGrids
  if x  in charset[i] then
  begin
  end;
end;

procedure TForm1.CharSet12Click(Sender: TObject);  // CharSet 1
begin
  i := 1;
  Anzeige;
end;

procedure TForm1.CharSet21Click(Sender: TObject);  // CharSet 2
begin
  i := 2;
  Anzeige;
end;

procedure TForm1.CharSet31Click(Sender: TObject);  // CharSet 3
begin
  i := 3;
  Anzeige;
end;