Set of – Delphi – Fórum – Programujte.com

dobrý den

potřeboval bych vědět jak množinu set of char, kterou mám v proměnné c, vypíšu do labelu

c:=a+b    a,b - jsou množiny

label1.Caption:=

předpokládám, že na to existuje nějaká funkce, ale tu jsem bohužel nenašel

nic jednoduchyho asi neni ... proste cyklem projedes vsechny mozny hodnoty jestli jsou v tom setu:

http://delphi.about.com/od/beginners/a/delphi_set_type.htm

#2 KIIV
díky za odkaz, ale já to mu moc nerozumím, pořád nechápu jak bude ta syntaxe toho vypsání

a:set of char;  {a,b,c}

b:set of char; {b,c,d}`;

c:set of char;

c:= a+b;  {a,b,c,d}

a to c pořád nechápu jak vypsat

jako přes ten cyklus for, ale to fakt nevím jak zapsat a ani nevím jestli to bude fungovat, když mám množinu typu set of char a label používá string

jake stesti, ze string podporuje operator   string+znak => string

já tomu furt teda moc nerozumím

to bude vypadat takto 

for i:=1 to length(c) do

label1.caption:=label1.caption + c[i];

type
   TMagicNumber = 1..34;
   TMagicSet = set of TMagicNumber;


function DisplayElements(magicSet : TMagicSet) : string;
 var
   element : TMagicNumber;
 begin
   for element in magicSet do
     result := result + IntToStr(element) + ' | ';
 end;

 a:Set of char;
  b:Set of char;
  c:Set of char;

  for i:=1 to length(edit1.text) do

  If (edit1.text <> ',') or (edit1.text <> ' ') then

    a:= a + [edit1.text[i]];

for i:=1 to length(edit2.text) do
  If (edit2.text <> ',') or (edit2.text <> ' ')  then
    b:= b + [edit2.text[i]];
c:=a+b;

toto je můj kód, ale já vůbec nechápu, jak to tady na tom kódu udělat , mě to totiž přijde trochu odlišný

já vím, že už jsem s tím pro vás otravnej a za to se fakt omlouvám, ale já to pořád nechápu jak to dotoho labelu mám dát 

znak : char;

for znak in tvujset do

Nebo aby se to nedalo uz nijak zmrsit:

var
  charset : TCharSet;
  ch      : char;
begin
  Edit1.Text := '';
  charset := ['A'..'F'] + ['0'..'5'];
  for ch in charset do begin
    Edit1.Text := Edit1.Text + ch;
  end;
end;  

jo už to funguje moc díky