Variablenwert Bestandteil einer Menge ? wie Zeitkritisch ???

[richard_boderich]

@ sharky,

hab es jetz geloest,borge mir mal deine code

Delphi-Quellcode:

implementation 

{$R *.dfm} 


var 
  i : Integer; 
  x : Byte; 
  charset: array[1..3] of set of byte;  // 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;

wenn ich es richtig sehe , war mein einziger fehler, das ich bei der charset arraydefinition, keinen festgelegten bereich angegeben hab,
dadurch nahm delphi an, es sei ein dyn. array, und da ich das nicht wollte, und damit natuerlich nicht mit setlenght definiert habe, die
exeption, ist das so richtig ???