calform.pas

线性规划CAI应用程序及原代码

unit calform;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  Tcalculate = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  calculate: Tcalculate;

implementation

uses lpmain, ftiaojian, startopen;

{$R *.DFM}

procedure Tcalculate.Button3Click(Sender: TObject);
begin
edit1.text:='';
end;

procedure Tcalculate.Button2Click(Sender: TObject);
var s:string;
begin
s:=edit1.text;
delete(s,length(s),1);
edit1.text:=s;
{edit1.text:=delete(edit1.text,(length(edit1.text)-1),1);}
end;


procedure Tcalculate.FormCreate(Sender: TObject);
begin
edit1.text:='';
width:=297;
height:=225;
case whichgrid of
 4:edit1.text:=main.stringgrid4.cells[whichcellx,whichcelly];
 1:edit1.text:=main.stringgrid1.cells[whichcellx,whichcelly];
 3:edit1.text:=main.stringgrid3.cells[whichcellx,whichcelly];
 end;
//startopenform.hide;
//main.show;
end;

procedure Tcalculate.Button4Click(Sender: TObject);
begin
close;
end;

procedure Tcalculate.Button1Click(Sender: TObject);
var values:real;
   posofdot:integer;
begin
  posofdot:=pos('.',edit1.text);
  if posofdot=1 then
     values:=strtofloat('0'+edit1.text)
  else
    if posofdot=length(edit1.text) then
     values:=strtofloat(edit1.text+'00')
  else
    values:=strtofloat(edit1.text);
  case whichgrid of
    4:main.stringgrid4.cells[whichcellx,whichcelly]:=floattostr(values);
    3:main.stringgrid3.cells[whichcellx,whichcelly]:=floattostr(values);
    1:main.stringgrid1.cells[whichcellx,whichcelly]:=floattostr(values);
  end;
main.show
end;

procedure Tcalculate.Button6Click(Sender: TObject);
begin
edit1.text:=edit1.Text +'1';
end;

procedure Tcalculate.Button7Click(Sender: TObject);
begin
edit1.text:=edit1.Text +'2';

end;

procedure Tcalculate.Button8Click(Sender: TObject);
begin
edit1.text:=edit1.Text +'3';

end;

procedure Tcalculate.Button9Click(Sender: TObject);
begin
edit1.text:=edit1.Text +'4';
end;

procedure Tcalculate.Button10Click(Sender: TObject);
begin
edit1.text:=edit1.Text +'5';

end;

procedure Tcalculate.Button11Click(Sender: TObject);
begin
edit1.text:=edit1.Text +'6';

end;

procedure Tcalculate.Button12Click(Sender: TObject);
begin
edit1.text:=edit1.Text +'7';

end;

procedure Tcalculate.Button13Click(Sender: TObject);
begin
edit1.text:=edit1.Text +'8';

end;

procedure Tcalculate.Button14Click(Sender: TObject);
begin
edit1.text:=edit1.Text +'9';

end;

procedure Tcalculate.Button15Click(Sender: TObject);
begin
edit1.text:=edit1.Text +'0';

end;

procedure Tcalculate.Button16Click(Sender: TObject);
var strpos:integer;
begin
strpos:=pos('.',edit1.text);
if strpos=0 then
  edit1.text:=edit1.Text +'.'
else
  showmessage('"." has been in the value');

end;

procedure Tcalculate.FormActivate(Sender: TObject);
begin
tiaojianform.hide;
docalculate:=false;

 case whichgrid of
  4:edit1.Text :=main.stringgrid4.cells[whichcellx,whichcelly];
  1:edit1.Text :=main.stringgrid1.cells[whichcellx,whichcelly];
  3:edit1.Text :=main.stringgrid3.cells[whichcellx,whichcelly];
 end;
end;

procedure Tcalculate.Button17Click(Sender: TObject);
begin
if strtofloat(edit1.text)<>0 then
    edit1.text:=floattostr((-1)*strtofloat(edit1.text));
end;

procedure Tcalculate.Edit1Change(Sender: TObject);
begin
if edit1.text='0' then
   edit1.text:='';
end;

end.