Zbiory

Ja wyświetlić w komunikacie showmessage zawartość jakigoś zbioru

Jakiego zbioru ? :-)

pętlą:

  TKolor = (klZielony, klZolty, klCzerwony);
  TKolorSet = set of TKolor;
var
  i: TKolor;
  KolorSet: TKolorSet
begin
  for i := klZielony to klCzerwony do
    if i in KolorSet thrn rob_jakas_akcje_np_dopisz_cos_do_labela;
end;

Mozesz tez set skonwertować na integer i := Integer(KolorSet);

Pytanie:

Ja wyświetlić w komunikacie showmessage zawartość jakigoś zbioru

Odpowiedź:

pętlą:

  TKolor = (klZielony, klZolty, klCzerwony);
  TKolorSet = set of TKolor;
var
  i: TKolor;
  KolorSet: TKolorSet
begin
  for i := klZielony to klCzerwony do
    if i in KolorSet thrn rob_jakas_akcje_np_dopisz_cos_do_labela;
end;

Mozesz tez set skonwertować na integer i := Integer(KolorSet);

                                              [???]