[aguml]

A mi tu codigo tal cual me funciona, el problema es cuando intento pasarlo a la vcl. Hice esto:

Código PHP:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int array[3][3]={1,2,3,
                         4,5,6,
                         7,8,9};

        AnsiString aux="";

        for(int f = 0; f < 3; f++) {
                for(int c = 0; c < 3; c++)
                        aux += AnsiString(array[f][c]) + ",";
                aux += '\n';
        }

        ShowMessage(aux);

        random_shuffle(&array[0][0], &array[3][3]);

        aux="";

        for(int f = 0; f < 3; f++) {
                for(int c = 0; c < 3; c++)
                        aux += AnsiString(array[f][c]) + ",";
                aux += '\n';
        }
        ShowMessage(aux);
} 


Solo cambio la manera de mostrar el resultado y con eso ya no funciona correctamente.