[nav]

Сообщение от lmikle

Весь проект кинь сюда - посмотрю.

если можно, глянь. Я пока определитель не вычисляю, с чтением данных проблема.

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Grids;
const n=100;
type matr=array[1..n,1..n] of integer;
type
  TForm1 = class(TForm)
    LabeledEdit1: TLabeledEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    UpDown1: TUpDown;
    StringGrid1: TStringGrid;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin close
end;


procedure TForm1.Button1Click(Sender: TObject);
var nproc,i,j:0..n;
    a:matr;
begin
 nproc:=upDown1.Position;
 while nproc>=n do button1.Caption:='N должно быть меньше 100';
 nproc:=nproc-1;
 with stringgrid1 do
  begin stringgrid1.ColCount:=updown1.Position-1;
        stringgrid1.RowCount:=stringgrid1.ColCount-1;
    for i:=0 to nproc do
      for j:=0 to nproc do a[i,j]:=strToInt(cells[j,i]);
  end
end;

end.