= K ) Key=0; (Key == L ) Key=0; (Key == Z ) Key=0; (Key == X ) Key =0; (Key == C ) Key=0; (Key == V ) Key=0; (Key == B ) Key=0; (Key == N ) Key=0; (Key == M ) Key=0; (Key == ? ) Key=0; (Key == `) Key=0;
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N8Click (TObject * Sender)
{= false;=false; (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{(Form1- gt; StringGrid1- gt; Cells [j + 1] [i + 1] == )=true;
} (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{(Form1- gt; StringGrid2- gt; Cells [j + 1] [i + 1] == )=true;
} ((s == false) amp; amp; (d == false))
{= (int **) calloc (n, sizeof (int *)); (i=0; i lt; n; i ++) [i]=(int *) calloc (m, sizeof (int)); (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{[i] [j]=StrToInt (Form1- gt; StringGrid1- gt; Cells [j + 1] [i + 1]);
}=(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]);
} (Form1- gt; SaveDialog1- gt; Execute ())
{* File=new TStringList; gt; Add (Form1- gt; ComboBox1- gt; Text); gt; Add (Form1- gt; ComboBox2- gt; Text); (i=0; i lt; n; i ++ ) (j=0; j lt; m; j ++) gt; Add (A [i] [j]); gt; Add (Form1- gt; ComboBox3- gt; Text); gt; Add (Form1- gt; ComboBox4- gt; Text); (i=0; i lt; k; i ++) (j=0; j lt; l; j ++) gt; Add (B [i] [j]); gt; SaveToFile (Form1- gt; SaveDialog1- gt; FileName + laquo ;. txt );
}
{;
}
}
{( ) ;;
}
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N7Click (TObject * Sender)
{(Form1- gt; OpenDialog1- gt; Execute ())
{- gt; Memo1- gt; Lines- gt; Clear (); (i=1; i lt; n + 1; i ++) (j=1; j lt; m + 1; j ++)
{- gt; StringGrid1- gt; Cells [j] [i]= raquo ;;
} (i=1; i lt; k + 1; i ++) (j=1; j lt; l + 1; j ++)
{- gt; StringGrid2- gt; Cells [j] [i]= raquo ;;
}-gt;Label12-gt;Caption=laquo;raquo;;-gt;Label13-gt;Caption=laquo;raquo;;-gt;Label14-gt;Caption=laquo;raquo;;-gt;Label15-gt;Caption=laquo;raquo;;-gt;Label12-gt;Visible=false;-gt;Label13-gt;Visible=false;-gt;Label14-gt;Visible=false;-gt;Label15-gt;Visible=false;*File=new TStringList; gt; LoadFromFile (Form1- gt; OpenDialog1- gt; FileName);=File [0] [0];=File [0] [1];=StrToInt (str);=StrToInt (st);=(n * m) +2;=1; - gt; StringGrid1- gt; ColCount=n; - gt; StringGrid1- gt; RowCount=m; (i=0; i lt; n; i ++) (j=0; j lt; m ; j ++)
{h ++; - gt; StringGrid1- gt; Cells [j + 1] [i + 1]=File [0] [h];
} - gt; StringGrid1- gt; Visible=true;=File [0] [a];=File [0] [a + 1];=StrToInt (gh);=StrToInt (lk);-gt;StringGrid1-gt;ColCount=m+1;-gt;StringGrid1-gt;RowCount=n+1;-gt;StringGrid1-gt;FixedCols=1;-gt;StringGrid1-gt;FixedRows=1;-gt;StringGrid2-gt;ColCount=l+1;-gt;StringGrid2-gt;RowCount=k+1;-gt;StringGrid2-gt;FixedCols=1;-gt;StringGrid2-gt;FixedRows=1;-gt;StringGrid1-gt;Cells [0] [0]= i/j raquo ;; - gt; StringGrid2- gt; Cells [0] [0]= i/j raquo ;; (i=1; i lt; n + 1; i ++)
{- gt; StringGrid1- gt; Cells [0] [i]=StrToInt (i);
} (j=1; j lt; m + 1; j ++)
{- gt; StringGrid1- gt; Cells [j] [0]=StrToInt (j);
} (i=1; i lt; k + 1; i ++)
{- gt; StringGrid2- gt; Cells [0] [i]=StrToInt (i);
} (j=1; j lt; l + 1; j ++)
{- gt; StringGrid2- gt; Cells [j] [0]=StrToInt (j);
} - gt; StringGrid2- gt; Visible=true;=a + 1; (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{a ++; - gt; StringGrid2- gt; Cells [j + 1] [i + 1]=File [0] [a];
}-gt;StringGrid2-gt;Visible=true;-gt;Label9-gt;Visible=false;-gt;Label10-gt;Visible=true;-gt;Label11-gt;Visible=true;-gt;BitBtn3-gt;Visible=true;-gt;BitBtn4-gt;Visible=true;-gt;BitBtn5-gt;Visible=true;-gt;BitBtn6-gt;Visible=true;-gt;N7-gt;Enabled=false;-gt;N8-gt;Enabled=true;-gt;N2-gt;Enabled=true;-gt;Label10-gt;Caption=laquo; = Raquo; + IntToStr (n) + x + IntToStr (m); - gt; Label11- gt; Caption= B= + IntToStr (k) + x + IntToStr (l);
}
{;
}
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N4Click (TObject * Sender)
{(Handle, Open , sprawka. chm , NULL, NULL, SW_RESTORE);
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Button1Click (TObject * Sender)
{her=false; het=false; (i=0; i lt; n; i ++) (j=0; j lt; m; j ++)
{(Form1- gt; StringGrid1- gt; Cells [j + 1] [i + 1] == )=true;
} (i=0; i lt; k; i ++) (j=0; j lt; l; j ++)
{(Form1- gt; StringGrid2- gt; Cells [j + 1] [i + 1] ==...
