] [i + 1]);
} - gt; Caption= + IntToStr (m) + x + IntToStr (n); - gt; StringGrid1- gt; RowCount=m + 1; - gt; StringGrid1- gt; ColCount=n + 1; - gt; StringGrid1- gt; Cells [0] [0]= i/j raquo ;; - gt; StringGrid1- gt; FixedRows=1; - gt; StringGrid1- gt; FixedCols=1; (i=1; i lt; m + 1; i ++)
{- gt; StringGrid1- gt; Cells [0] [i]=StrToInt (i);
} (j=1; j lt; n + 1; j ++)
{- gt; StringGrid1- gt; Cells [j] [0]=StrToInt (j);
} (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{- gt; StringGrid1- gt; Cells [i + 1] [j + 1]=IntToStr (A [i] [j]);
} - gt; Show ();=(int **) calloc (k, sizeof (int *)); (i=0; i lt; k; i ++) [i]=(int *) calloc (l , sizeof (int)); (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{[i] [j]=StrToInt (Form1- gt; StringGrid2- gt; Cells [j + 1] [i + 1]);
} - gt; Caption= + IntToStr (l) + x + IntToStr (k); - gt; StringGrid1- gt; RowCount=l + 1; - gt; StringGrid1- gt; ColCount=k + 1; - gt; StringGrid1- gt; Cells [0] [0]= i/j raquo ;; - gt; StringGrid1- gt; FixedRows=1; - gt; StringGrid1- gt; FixedCols=1; (i=1; i lt; l + 1; i ++)
{- gt; StringGrid1- gt; Cells [0] [i]=StrToInt (i);
} (j=1; j lt; k + 1; j ++)
{
Form4- gt; StringGrid1- gt; Cells [j] [0]=StrToInt (j);
} (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{- gt; StringGrid1- gt; Cells [i + 1] [j + 1]=IntToStr (B [i] [j]);
} - gt; Show ();
}
{( !!! );
}
}
//-----------------------------------------------------------------------------------------
#include lt; vcl. h gt;
#pragma hdrstop
#include Unit2. h
#include Unit1. h
//---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma resource *. dfm * Form2;
//---------------------------------------------------------------------------
__ fastcall TForm2 :: TForm2 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__ fastcall TForm2 :: FormClose (TObject * Sender, TCloseAction amp; Action)
{- gt; Memo1- gt; Lines- gt; Clear ();
}
//---------------------------------------------------------------------------__ fastcall TForm2 :: Form1N10Click (TObject * Sender)
{i; (PrintDialog1- gt; Execute ()) {() - gt; BeginDoc (); () - gt; Canvas- gt; Font- gt; Pitch=fpFixed; (int i=0; i lt ; Memo1- gt; Lines- gt; Count; i ++)
{() - gt; Canvas- gt; TextOut (200, 200 +
(i * Printer () - gt; Canvas- gt; TextHeight (Memo1- gt; Lines- gt; Strings [i])), (i + 1) + + Memo1- gt; Lines- gt; Strings [i]); () - gt; EndDoc ();
}
}
{( );
}
}
//---------------------------------------------------------------------------__ fastcall TForm2 :: N2Click (TObject * Sender)
{- gt; Close ();
}
//---------------------------------------------------------------------------__ fastcall TForm2 :: N1Click (TObject * Sender)
{(Form1- gt; SaveDialog1- gt; Execute ())
{- gt; Memo1- gt; Lines- gt; SaveToFile (Form1- gt; SaveDialog1- gt; FileName + laquo ;. txt );
}
}
//---------------------------------------------------------------------------
#include lt; vcl. h gt;
#pragma hdrstop
#include Unit3. h
#include Unit1. h
//---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma resource *. dfm * Form3;
//---------------------------------------------------------------------------
__ fastcall TForm3 :: TForm3 (TComponent * Owner)
: TForm (Owner)
{
}
//---------------------------------------------------------------------------__ fastcall TForm3 :: N1Click (TObject * Sender)
{(Form3- gt; SaveDialog1- gt; Execute ())
{i, j; * list=new TStringList; gt; Add (Form3- gt; Caption); gt; Add ( ); (i=0; i lt; Form3- gt; StringGrid1- gt; RowCount; i ++)
{(j=0; j lt; Form3- gt; StringGrid1- gt; ColCount; j ++) gt; Append (Form3- gt; StringGrid1- gt; Cells [j + 1] [i + 1]);
} gt; SaveToFile (Form3- gt; SaveDialog1- gt; FileName + laquo ;. txt );
}
}
//---------------------------------------------------------------------------__ fastcall TForm3 :: N2Click (TObject * Sender)
{- gt; Close ();
}
//---------------------------------------------------------------------------
#include lt; vcl. h gt;
#pragma hdrstop
#include Unit4. h ...
