📄 unit1.pas
字号:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,IniFiles, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Button3: TButton;
Label31: TLabel;
pgc1: TPageControl;
ts1: TTabSheet;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
GroupBox2: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Edit3: TEdit;
Edit4: TEdit;
GroupBox3: TGroupBox;
Label5: TLabel;
Label6: TLabel;
Edit5: TEdit;
Edit6: TEdit;
GroupBox4: TGroupBox;
Label7: TLabel;
Label8: TLabel;
Edit7: TEdit;
Edit8: TEdit;
GroupBox5: TGroupBox;
Label9: TLabel;
Label10: TLabel;
Edit9: TEdit;
Edit10: TEdit;
GroupBox6: TGroupBox;
Label11: TLabel;
Label12: TLabel;
Edit11: TEdit;
Edit12: TEdit;
GroupBox7: TGroupBox;
Label13: TLabel;
Label14: TLabel;
Edit13: TEdit;
Edit14: TEdit;
GroupBox8: TGroupBox;
Label15: TLabel;
Label16: TLabel;
Edit15: TEdit;
Edit16: TEdit;
GroupBox9: TGroupBox;
Label17: TLabel;
Label18: TLabel;
Edit17: TEdit;
Edit18: TEdit;
GroupBox10: TGroupBox;
Label19: TLabel;
Label20: TLabel;
Edit19: TEdit;
Edit20: TEdit;
GroupBox11: TGroupBox;
Label21: TLabel;
Label22: TLabel;
Edit21: TEdit;
Edit22: TEdit;
GroupBox12: TGroupBox;
Label23: TLabel;
Label24: TLabel;
Edit23: TEdit;
Edit24: TEdit;
GroupBox13: TGroupBox;
Label25: TLabel;
Label26: TLabel;
Edit25: TEdit;
Edit26: TEdit;
GroupBox14: TGroupBox;
Label27: TLabel;
Label28: TLabel;
Edit27: TEdit;
Edit28: TEdit;
GroupBox15: TGroupBox;
Label29: TLabel;
Label30: TLabel;
Edit29: TEdit;
Edit30: TEdit;
ts2: TTabSheet;
GroupBox16: TGroupBox;
Label32: TLabel;
Label33: TLabel;
Edit31: TEdit;
Edit32: TEdit;
Edit33: TEdit;
Label34: TLabel;
GroupBox17: TGroupBox;
Label35: TLabel;
Label36: TLabel;
Label37: TLabel;
Edit34: TEdit;
Edit35: TEdit;
Edit36: TEdit;
GroupBox18: TGroupBox;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Edit37: TEdit;
Edit38: TEdit;
Edit39: TEdit;
GroupBox19: TGroupBox;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
Edit40: TEdit;
Edit41: TEdit;
Edit42: TEdit;
GroupBox20: TGroupBox;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Edit43: TEdit;
Edit44: TEdit;
Edit45: TEdit;
GroupBox21: TGroupBox;
Label47: TLabel;
Label48: TLabel;
Label49: TLabel;
Edit46: TEdit;
Edit47: TEdit;
Edit48: TEdit;
GroupBox22: TGroupBox;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Edit49: TEdit;
Edit50: TEdit;
Edit51: TEdit;
Label53: TLabel;
Edit52: TEdit;
Edit53: TEdit;
Label54: TLabel;
Edit54: TEdit;
Label55: TLabel;
Edit55: TEdit;
Label56: TLabel;
Edit56: TEdit;
Label57: TLabel;
Edit57: TEdit;
Label58: TLabel;
Edit58: TEdit;
Label59: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
INI: TINIFILE;
currdir:String;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
ofx,ofy,ofp,OFPY:integer;
begin
CURRDIR := ExtractFilePath(Application.ExeName);
INI := TIniFile.Create(Currdir + '\OFFSEX.INI');
OFX := INI.ReadInteger('P2', 'OFX', 0);
OFY := INI.ReadInteger('P2', 'OFY', 0);
Edit1.Text:=IntToStr(ofx);
Edit2.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P3', 'OFX', 0);
OFY := INI.ReadInteger('P3', 'OFY', 0);
Edit3.Text:=IntToStr(ofx);
Edit4.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P4', 'OFX', 0);
OFY := INI.ReadInteger('P4', 'OFY', 0);
Edit5.Text:=IntToStr(ofx);
Edit6.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P5', 'OFX', 0);
OFY := INI.ReadInteger('P5', 'OFY', 0);
Edit7.Text:=IntToStr(ofx);
Edit8.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P6', 'OFX', 0);
OFY := INI.ReadInteger('P6', 'OFY', 0);
Edit9.Text:=IntToStr(ofx);
Edit10.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P7', 'OFX', 0);
OFY := INI.ReadInteger('P7', 'OFY', 0);
Edit11.Text:=IntToStr(ofx);
Edit12.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P8', 'OFX', 0);
OFY := INI.ReadInteger('P8', 'OFY', 0);
Edit13.Text:=IntToStr(ofx);
Edit14.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P9', 'OFX', 0);
OFY := INI.ReadInteger('P9', 'OFY', 0);
Edit15.Text:=IntToStr(ofx);
Edit16.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P10', 'OFX', 0);
OFY := INI.ReadInteger('P10', 'OFY', 0);
Edit17.Text:=IntToStr(ofx);
Edit18.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P11', 'OFX', 0);
OFY := INI.ReadInteger('P11', 'OFY', 0);
Edit19.Text:=IntToStr(ofx);
Edit20.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P12', 'OFX', 0);
OFY := INI.ReadInteger('P12', 'OFY', 0);
Edit21.Text:=IntToStr(ofx);
Edit22.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P13', 'OFX', 0);
OFY := INI.ReadInteger('P13', 'OFY', 0);
Edit23.Text:=IntToStr(ofx);
Edit24.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P14', 'OFX', 0);
OFY := INI.ReadInteger('P14', 'OFY', 0);
Edit25.Text:=IntToStr(ofx);
Edit26.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('P15', 'OFX', 0);
OFY := INI.ReadInteger('P15', 'OFY', 0);
Edit27.Text:=IntToStr(ofx);
Edit28.Text:=IntToStr(ofy);
OFX := INI.ReadInteger('f3', 'OFX', 0);
OFY := INI.ReadInteger('f3', 'OFY', 0);
Edit29.Text:=IntToStr(ofx);
Edit30.Text:=IntToStr(ofy);
///////////////////
OFX := INI.ReadInteger('P2_15', 'OFX', 0);
OFY := INI.ReadInteger('P2_15', 'OFY', 0);
OFP := INI.ReadInteger('P2_15', 'OFP', 0);
OFPY := INI.ReadInteger('P2_15', 'OFPY', 0);
EDIT52.TEXT:=IntToStr(ofpY);
Edit31.Text:=IntToStr(ofx);
Edit32.Text:=IntToStr(ofy);
EDIT33.TEXT:=IntToStr(ofp);
OFX := INI.ReadInteger('P3_14', 'OFX', 0);
OFY := INI.ReadInteger('P3_14', 'OFY', 0);
OFP := INI.ReadInteger('P3_14', 'OFP', 0);
OFPY := INI.ReadInteger('P3_14', 'OFPY', 0);
EDIT53.TEXT:=IntToStr(ofpY);
Edit34.Text:=IntToStr(ofx);
Edit35.Text:=IntToStr(ofy);
EDIT36.TEXT:=IntToStr(ofp);
OFX := INI.ReadInteger('P4_13', 'OFX', 0);
OFY := INI.ReadInteger('P4_13', 'OFY', 0);
OFP := INI.ReadInteger('P4_13', 'OFP', 0);
OFPY := INI.ReadInteger('P4_13', 'OFPY', 0);
Edit54.Text:=IntToStr(ofPY);
Edit37.Text:=IntToStr(ofx);
Edit38.Text:=IntToStr(ofy);
EDIT39.TEXT:=IntToStr(ofp);
OFX := INI.ReadInteger('P5_12', 'OFX', 0);
OFY := INI.ReadInteger('P5_12', 'OFY', 0);
OFP := INI.ReadInteger('P5_12', 'OFP', 0);
OFPY := INI.ReadInteger('P5_12', 'OFPY', 0);
Edit55.Text:=IntToStr(ofPY);
Edit40.Text:=IntToStr(ofx);
Edit41.Text:=IntToStr(ofy);
EDIT42.TEXT:=IntToStr(ofp);
OFX := INI.ReadInteger('P6_11', 'OFX', 0);
OFY := INI.ReadInteger('P6_11', 'OFY', 0);
OFP := INI.ReadInteger('P6_11', 'OFP', 0);
OFPY := INI.ReadInteger('P6_11', 'OFPY', 0);
Edit56.Text:=IntToStr(ofPY);
Edit43.Text:=IntToStr(ofx);
Edit44.Text:=IntToStr(ofy);
EDIT45.TEXT:=IntToStr(ofp);
OFX := INI.ReadInteger('P7_10', 'OFX', 0);
OFY := INI.ReadInteger('P7_10', 'OFY', 0);
OFP := INI.ReadInteger('P7_10', 'OFP', 0);
OFPY := INI.ReadInteger('P7_10', 'OFPY', 0);
Edit57.Text:=IntToStr(ofPY);
Edit46.Text:=IntToStr(ofx);
Edit47.Text:=IntToStr(ofy);
EDIT48.TEXT:=IntToStr(ofp);
OFX := INI.ReadInteger('P8_9', 'OFX', 0);
OFY := INI.ReadInteger('P8_9', 'OFY', 0);
OFP := INI.ReadInteger('P8_9', 'OFP', 0);
OFPY := INI.ReadInteger('P8_9', 'OFPY', 0);
Edit58.Text:=IntToStr(ofPY);
Edit49.Text:=IntToStr(ofx);
Edit50.Text:=IntToStr(ofy);
EDIT51.TEXT:=IntToStr(ofp);
INI.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ofx,ofy,OFP,OFPY:integer;
begin
CURRDIR := ExtractFilePath(Application.ExeName);
INI := TIniFile.Create(Currdir + '\OFFSEX.INI');
OFX :=StrToIntDef(Edit1.Text ,0);
OFY :=StrToIntDef(Edit2.Text ,0);
INI.WriteInteger('P2', 'OFX', OFX);
INI.WriteInteger('P2', 'OFY', OFY);
OFX :=StrToIntDef(Edit3.Text ,0);
OFY :=StrToIntDef(Edit4.Text ,0);
INI.WriteInteger('P3', 'OFX', OFX);
INI.WriteInteger('P3', 'OFY', OFY);
OFX :=StrToIntDef(Edit5.Text ,0);
OFY :=StrToIntDef(Edit6.Text ,0);
INI.WriteInteger('P4', 'OFX', OFX);
INI.WriteInteger('P4', 'OFY', OFY);
OFX :=StrToIntDef(Edit7.Text ,0);
OFY :=StrToIntDef(Edit8.Text ,0);
INI.WriteInteger('P5', 'OFX', OFX);
INI.WriteInteger('P5', 'OFY', OFY);
OFX :=StrToIntDef(Edit9.Text ,0);
OFY :=StrToIntDef(Edit10.Text ,0);
INI.WriteInteger('P6', 'OFX', OFX);
INI.WriteInteger('P6', 'OFY', OFY);
OFX :=StrToIntDef(Edit11.Text ,0);
OFY :=StrToIntDef(Edit12.Text ,0);
INI.WriteInteger('P7', 'OFX', OFX);
INI.WriteInteger('P7', 'OFY', OFY);
OFX :=StrToIntDef(Edit13.Text ,0);
OFY :=StrToIntDef(Edit14.Text ,0);
INI.WriteInteger('P8', 'OFX', OFX);
INI.WriteInteger('P8', 'OFY', OFY);
OFX :=StrToIntDef(Edit15.Text ,0);
OFY :=StrToIntDef(Edit16.Text ,0);
INI.WriteInteger('P9', 'OFX', OFX);
INI.WriteInteger('P9', 'OFY', OFY);
OFX :=StrToIntDef(Edit17.Text ,0);
OFY :=StrToIntDef(Edit18.Text ,0);
INI.WriteInteger('P10', 'OFX', OFX);
INI.WriteInteger('P10', 'OFY', OFY);
OFX :=StrToIntDef(Edit19.Text ,0);
OFY :=StrToIntDef(Edit20.Text ,0);
INI.WriteInteger('P11', 'OFX', OFX);
INI.WriteInteger('P11', 'OFY', OFY);
OFX :=StrToIntDef(Edit21.Text ,0);
OFY :=StrToIntDef(Edit22.Text ,0);
INI.WriteInteger('P12', 'OFX', OFX);
INI.WriteInteger('P12', 'OFY', OFY);
OFX :=StrToIntDef(Edit23.Text ,0);
OFY :=StrToIntDef(Edit24.Text ,0);
INI.WriteInteger('P13', 'OFX', OFX);
INI.WriteInteger('P13', 'OFY', OFY);
OFX :=StrToIntDef(Edit25.Text ,0);
OFY :=StrToIntDef(Edit26.Text ,0);
INI.WriteInteger('P14', 'OFX', OFX);
INI.WriteInteger('P14', 'OFY', OFY);
OFX :=StrToIntDef(Edit27.Text ,0);
OFY :=StrToIntDef(Edit28.Text ,0);
INI.WriteInteger('P15', 'OFX', OFX);
INI.WriteInteger('P15', 'OFY', OFY);
OFX :=StrToIntDef(Edit29.Text ,0);
OFY :=StrToIntDef(Edit30.Text ,0);
INI.WriteInteger('F3', 'OFX', OFX);
INI.WriteInteger('F3', 'OFY', OFY);
///////////////////////
OFX :=StrToIntDef(Edit31.Text ,0);
OFY :=StrToIntDef(Edit32.Text ,0);
OFP :=StrToIntDef(Edit33.Text ,0);
OFPY :=StrToIntDef(Edit52.Text ,0);
INI.WriteInteger('P2_15', 'OFX', OFX);
INI.WriteInteger('P2_15', 'OFY', OFY);
INI.WriteInteger('P2_15', 'OFP', OFP);
INI.WriteInteger('P2_15', 'OFPY', OFPY);
OFX :=StrToIntDef(Edit34.Text ,0);
OFY :=StrToIntDef(Edit35.Text ,0);
OFP :=StrToIntDef(Edit36.Text ,0);
OFPY :=StrToIntDef(Edit53.Text ,0);
INI.WriteInteger('P3_14', 'OFX', OFX);
INI.WriteInteger('P3_14', 'OFY', OFY);
INI.WriteInteger('P3_14', 'OFP', OFP);
INI.WriteInteger('P3_14', 'OFPY', OFPY);
OFX :=StrToIntDef(Edit37.Text ,0);
OFY :=StrToIntDef(Edit38.Text ,0);
OFP :=StrToIntDef(Edit39.Text ,0);
OFPY :=StrToIntDef(Edit54.Text ,0);
INI.WriteInteger('P4_13', 'OFX', OFX);
INI.WriteInteger('P4_13', 'OFY', OFY);
INI.WriteInteger('P4_13', 'OFP', OFP);
INI.WriteInteger('P4_13', 'OFPY', OFPY);
OFX :=StrToIntDef(Edit40.Text ,0);
OFY :=StrToIntDef(Edit41.Text ,0);
OFP :=StrToIntDef(Edit42.Text ,0);
OFPY :=StrToIntDef(Edit55.Text ,0);
INI.WriteInteger('P5_12', 'OFX', OFX);
INI.WriteInteger('P5_12', 'OFY', OFY);
INI.WriteInteger('P5_12', 'OFP', OFP);
INI.WriteInteger('P5_12', 'OFPY', OFPY);
OFX :=StrToIntDef(Edit43.Text ,0);
OFY :=StrToIntDef(Edit44.Text ,0);
OFP :=StrToIntDef(Edit45.Text ,0);
OFPY :=StrToIntDef(Edit56.Text ,0);
INI.WriteInteger('P6_11', 'OFX', OFX);
INI.WriteInteger('P6_11', 'OFY', OFY);
INI.WriteInteger('P6_11', 'OFP', OFP);
INI.WriteInteger('P6_11', 'OFPY', OFPY);
OFX :=StrToIntDef(Edit46.Text ,0);
OFY :=StrToIntDef(Edit47.Text ,0);
OFP :=StrToIntDef(Edit48.Text ,0);
OFPY :=StrToIntDef(Edit57.Text ,0);
INI.WriteInteger('P7_10', 'OFX', OFX);
INI.WriteInteger('P7_10', 'OFY', OFY);
INI.WriteInteger('P7_10', 'OFP', OFP);
INI.WriteInteger('P7_10', 'OFPY', OFPY);
OFX :=StrToIntDef(Edit49.Text ,0);
OFY :=StrToIntDef(Edit50.Text ,0);
OFP :=StrToIntDef(Edit51.Text ,0);
OFPY :=StrToIntDef(Edit58.Text ,0);
INI.WriteInteger('P8_9', 'OFX', OFX);
INI.WriteInteger('P8_9', 'OFY', OFY);
INI.WriteInteger('P8_9', 'OFP', OFP);
INI.WriteInteger('P8_9', 'OFPY', OFPY);
INI.Free;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -