Unnamed

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);}//---------------------------------------------------------------------------