mengenarbeit mit strings

[Remote1]

kann man in mengen auch strings deklarieren
halt so

Delphi-Quellcode:

procedure blabla;
var m: set of string;
begin
m:=['test','####','kll'];
if igrendwas in m then machirgendwas;
end;

ich hats irgendwann mal ausprobiert, aber immer fehler bekommen (geht das denn nur bei integer, char...)

[fkerber]

Hi!

Schau doch mal nach array.

Ciao fkerber

[Remote1]

kannst du mir mal nen kurzes bsp posten

[Ultimator]

Zitat:

procedure blabla;
var m: set of string;
begin
m:=['test','####',kll'];
if igrendwas in m then machirgendwas;
end;

Du musst vor das kll auch noch nen Apostroph machen, sonst steht das if irgendwas... auch noch als string da.

Hoffe, geholfen zu haben

[fkerber]

Hi!

Einfaches Beispiel:

Delphi-Quellcode:

var
  Form1: TForm1;
  arr: array[0..2] of String = ('Test', 'zum', 'aa');


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
  for i:=0 to length(arr)-1 do begin
    if ('aa' = arr[i]) then showmessage(inttostr(i)+': gefunden');
  end;
end;

Ciao fkerber

[Remote1]

ach so hast du das gemeint,
so hab ich das dann auch immer gemacht, aber ich hab gedacht, dass man über mengenarbeit die schleife weglassen kan und gleich zur abfrage kommt (bei zahlen und buchstaben geht das ja ganz gut)

[maximov]

Das geht leider nicht, da mengen nix anderes sind als eine menge von einzelnen bits!

zB:

Delphi-Quellcode:

type TSet = set of (bit0, bit1, bit2, bit3, bit4, bit5, bit6, bit7);
var aSetByte:TSet;
...
aSetByte := [bit0,bit2,bit5,bit6];// entspricht binär -> 10100110

das sollte auch erklären warum da nix mit strings geht :wink: ...man kann aber die namen der einzelnen bits aus der RTTI holen.

[Remote1]

ahh jetzt machts klick
danke für die info