Variablenwert Bestandteil einer Menge ? wie Zeitkritisch ???

[Sharky]

Zitat:

Zitat von richard_boderich

...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 ???

:thuimb: Genau das war das hüpfende Komma in deinem ersten Code.
.
.
.
.

Und weil ich heute so lustig bin:
Weise allen drei Menüpunkten die selbe OnClick procedure zu. Dann setzt Du bei Menüpunkt-1 die Eigenschaft Tag auf 1 beim zweiten auf 2 und beim dritten auf 3.
Dann kommt das dabei raus ;-)

Delphi-Quellcode:

type
  tCharset = set of byte;

procedure Anzeige (aktcharset : tCharset);
var
  x : Byte;
begin
  //  Zum füllen deiner StringGrids
  if x  in aktcharset then
  begin
  end;
end;

procedure TForm1.CharSet12Click(Sender: TObject);  // CharSet 1
begin
  Case (Sender As TMenuItem).Tag of
   1 : Anzeige([46..255]);
   2 : Anzeige([46..200]);
   3 : Anzeige([21..255]);
  end;
end;

[richard_boderich]

@sharky,

ich schließe mal den thread, du machst mir angst!!! :mrgreen: