Решение системы линейных уравнений методом Крамера

    chnul: TCheckBox;

    edrndmin: TEdit;

    Label3: TLabel;

    Label4: TLabel;

    GroupBox3: TGroupBox;

    chrep: TCheckBox;

    procedure FormActivate(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure edrndKeyPress(Sender: TObject; var Key: Char);

    procedure edrndminKeyPress(Sender: TObject; var Key: Char);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  fmSetting: TfmSetting;

 

implementation

 

uses main;

 

{$R *.dfm}

 

procedure TfmSetting.FormActivate(Sender: TObject);

begin

  chround.Checked:=fmMain.okr;

  sedzn.Value:=fmMain.nzn;

  edrnd.Text:=IntToStr(FmMain.rndmax);

  edrndmin.Text:=IntToStr(FmMain.rndmin);

  chnul.Checked:=fmMain.zapnul;

  chrep.Checked:=fmMAin.clrep;

end;

 

procedure TfmSetting.BitBtn1Click(Sender: TObject);   //Применение новых параметров настройки

begin

  if edrndmin.Text='' then edrndmin.Text:='0';

  if edrndmin.Text='' then edrnd.Text:='0';

  fmMain.okr:= chround.Checked;

  fmMain.nzn:= sedzn.Value;

  FmMain.rndmin:= StrToInt(edrndmin.Text);

  FmMain.rndmax:= StrToInt(edrnd.Text);

  fmMain.zapnul:= chnul.Checked;

  fmMain.clrep := chrep.Checked;

  if Application.MessageBox('Запомнить параметры?','Настройка', mb_YesNo or mb_iconinformation) = idYes then

  begin

    try

      with fmmain do

      begin

        ini.WriteInteger('PARAM','RandMax',rndmax);

        ini.WriteInteger('PARAM','RandMin',rndmin);

        ini.WriteBool('PARAM','IsRound',okr);

        ini.WriteInteger('PARAM','ZnCount',nzn);

        ini.WriteBool('PARAM','IsZapNul',zapnul);

        ini.WriteBool('PARAM','IsClearRep',clrep);

      end;

    except

    end;

  end;

  close;

end;

 

procedure TfmSetting.BitBtn2Click(Sender: TObject);   //выход

begin

  close;

end;

 

procedure TfmSetting.edrndKeyPress(Sender: TObject; var Key: Char);

begin

  if not (key in ['0'..'9',#8]) then key:=#0;

end;

 

procedure TfmSetting.edrndminKeyPress(Sender: TObject; var Key: Char);

begin

  if not (key in ['0'..'9',#8]) then key:=#0;

end;

 

end.

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, jpeg;

 

type

  TfAbout = class(TForm)

    Image1: TImage;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  fAbout: TfAbout;

 

implementation

 

{$R *.dfm}

end.

Разраб.		Свибович  Г.П		25.05.10	Решение системы линейных уравнений методом Крамера	Лист
Пров.		Стреха  А.А
Изм	Лист	№ докум.	Подпись	Дата