[Delphi] Ako zistit jednotlive prvky zo set

[pexxi]

Mam mnozinu prvkov, napr. set of Char, ktoru predavam funkcii ako parameter, potreboval by som "extrahovat" jednotlive prvky z tejto mnoziny, da sa to nejak urobit v Delphi?

Priklad: procedure VypisSet(S:set of Char)

v pripade, ze zavolam proceduru VypisSet(['x','y','z']), mala by vypisat na obrazovke znaky x, y, z... Na poradi prvkov v mnozine mi nezalezi.

Potrebujem totiz naplnit dynamicke pole znakov udajmi zo set of Char, ale neviem ako na to, zjednodusilo by mi to upravu jednej kniznice, kde sa mi trosku "zmenila filozofia" prace so znakmi.

[Trebus]

Kód: Vybrat vše

for i := 65 to 90 do
   if Chr(i) in S then
      write(Chr(i));


[Nargon]

V jinem jazyku bych to resil pomoci funkce FOREACH, ale nevim jestli ji delphi ma, ale tak nejak to zkusim, snad to moc nezmrvim

Kód: Vybrat vše

c: Char;
foreach(c in S) write(c);

[Povik]

Kód: Vybrat vše

program Project2;
{$APPTYPE CONSOLE}

uses SysUtils;

type  SetOfChar = set of char;
      ArrayOfSetOfChar = array of SetOfChar;

var AnArray : ArrayOfSetOfChar;
    i : integer;

procedure VypisSet(var kde:ArrayOfSetOfChar);
begin
   for i:= 0 to 255 do
     if chr(i) in kde[0] then writeln(chr(i));
end;

begin
SetLength(AnArray, 1);
AnArray[0] := ['A', 'B', 'C','k','t','#'];

VypisSet(AnArray);
readln;


end.


Toto mi funguje...vyzkoušej

[pexxi]

Diky vsetkym za odpovede, ale nakoniec som zistil, ze sa to neda...

Nepotreboval som vypisat pole znakov (to uz ovladam od 12-rokov , ale mnozinu znakov, set of Char (asi som sa zle vyjadril), teda nieco ako:

const MojaSet:set of Char=['A','B','C'];

Lenze interne je kazda set v Delphi reprezentovana 256 bitmi, t.j. 32 bytov, samotny obsah set sa nikde neuklada, t.j. je jedno, ci mam

const MojaSet:set of Byte=[1,2,3];
const MojaSet: set of Char=['A','B',C'];

Kazda z nich bude v pameti reprezentovana rovnako, iba bitovym indikatorom, ci je dany prvok v mnozine obsiahnuty alebo nie... O ostatne sa uz postara kompilator pocas kompilacie, t.j. napriklad sekvenciu:

MojaSet:=MojaSet+['A']; nahradi prislusnym nastavenim bitu
MojaSet:=MojaSet-['A']; nahradi prislusnym vynulovanim bitu

Mozno by sa to dalo riesit nejakym makrom preprocesora, ale v Delphi s tym nemam skusenosti.

Nakoniec som teda prislusne aj upravil kniznicu tak, ze sa tam nikde nevyuzivaju mnoziny set of Char.