FMX - gerando e comparando dois arrays

Este programa utiliza três dos seis operadores

relacionais da linguagem C, e a finalidade,

é comparar dois vetores de inteiros do C.

Isto não traz nenhuma novidade para nós,

mas a forma estratégica na qual organizamos 

os códigos para fazer as comparações,

foi perfeita e pode ser utilizada até em outras

comparações, como por exemplo, saber se dois vetores

são iguais ou distinto ou se seus elementos são comuns.

Assista o vídeo e comprove o programa funcionando:

//------------------------------------------------------------------------

void __fastcall TForm1::FormCreate ( TObject *Sender ) {

Label_Manual ( Sender );

//pos X, pos Y, Width, Height, Size, Bool, Color,String

T_Text ( 100, 15, 400, 20, 16, true, 3, "FMX - GERANDO E COMPARANDO DOIS ARRAYS II" );

   b++;

  T_Rect ( 39, 300, 30, 20 );

  T_Text_2 ( 40, 300, 30, 20, 20, true, 3, String ( b ) + "°" );

  T_Text_2 ( 60, 300, 70, 20, 20, true, 0, "Teste" );

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click ( TObject *Sender ) {

int A [ 10 ];

int B [ 10 ];

a++;

Cria_Array_Embaralhado ( A, B );

}

//---------------------------------------------------------------------------