Реферат Розробка програми для виконання обробки двомірних масивів

#include Unit1. h

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

#pragma package (smart_init)

#pragma resource *. dfm * Form4;

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

__ fastcall TForm4 :: TForm4 (TComponent * Owner)

: TForm (Owner)

{

}

//---------------------------------------------------------------------------__ fastcall TForm4 :: N1Click (TObject * Sender)

{- gt; Close ();

}

//---------------------------------------------------------------------------__ fastcall TForm4 :: c1Click (TObject * Sender)

{(Form4- gt; SaveDialog1- gt; Execute ())

{i, j; * list=new TStringList; gt; Add (Form4- gt; Caption); gt; Add ( ); (i=0; i lt; Form4- gt; StringGrid1- gt; RowCount; i ++)

{(j=0; j lt; Form4- gt; StringGrid1- gt; ColCount; j ++) gt; Append (Form4- gt; StringGrid1- gt; Cells [j + 1] [i + 1]);

} gt; SaveToFile (Form4- gt; SaveDialog1- gt; FileName + laquo ;. txt );

}

}