terça-feira, 2 de junho de 2009

Delphi e a teoria dos conjuntos

O Delphi tem um tipo de dados que é o SET, que nada mais é que um CONJUNTO.

Sendo assim, as regras de conjunto que devíamos ter aprendido no primário, se aplica.

Olha que artigo interessante:

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

Olha que exemplo bacana:

procedure TForm1.Laboratorio;
type
  TOpcoes = (um, dois, tres, quatro, cinco);
  TConjunto = set of TOpcoes;
var
tubo1 : TConjunto;
tubo2 : TConjunto;
tubo3 : TConjunto;
begin
  tubo1 := [];
  tubo2 := [];
  tubo3 := [];

  Include(tubo1,um);
  Include(tubo1,dois);
  Include(tubo1,tres);
  Include(tubo1,quatro);
  Include(tubo1,cinco);

  Include(tubo2,tres);

  tubo3 := tubo1 * tubo2;

  if (tubo3 = tubo2) then
    ShowMessage('Conjuntos iguais')
  else
    ShowMessage('Conjuntos diferentes');
end;

Nenhum comentário:

Minha lista de blogs