void TForm1::Atidaryti()
{
OpenDialog1->Title = "Pasirinkite Matricos failà";
OpenDialog1->Filter = "Teksto failai (txt) | *.txt";
if (OpenDialog1->Execute() && FileExists(OpenDialog1->FileName))
DFailas1 = OpenDialog1->FileName.c_str();
else DFailas1 = "";
OpenDialog1->Title = "Pasirinkite Masyvo failà";
OpenDialog1->Filter = "Teksto failai (txt) | *.txt";
if (OpenDialog1->Execute() && FileExists(OpenDialog1->FileName))
DFailas2 = OpenDialog1->FileName.c_str();
else DFailas2 = "";
}
//--------------------------------------------------------------------
void TForm1::SkaitytiDuom(const char f1vardas[], const char f2vardas[])
 {
ifstream fd(f1vardas);
fd>>n;
for (int i = 0; i < n; i++)
for (int j = 0; j < n; j++) {
fd>>X[i][j];
StringGrid1->Cells[j][i] = (FloatToStr(X[i][j])); }
fd.close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Atidaryti();
SkaitytiDuom(DFailas1, DFailas2);
}
//---------------------------------------------------------------------------