unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, IniFiles;type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
UpDown1: TUpDown;
ComboBox2: TComboBox;
Label5: TLabel;
Label6: TLabel;
Edit4: TEdit;
Label7: TLabel;
Edit5: TEdit;
Label8: TLabel;
Edit6: TEdit;
UpDown2: TUpDown;
ComboBox3: TComboBox;
Label9: TLabel;
Label10: TLabel;
Edit7: TEdit;
Label11: TLabel;
Edit8: TEdit;
Label12: TLabel;
Edit9: TEdit;
UpDown3: TUpDown;
ComboBox4: TComboBox;
Label13: TLabel;
Label14: TLabel;
Edit10: TEdit;
Label15: TLabel;
Edit11: TEdit;
Label16: TLabel;
Edit12: TEdit;
UpDown4: TUpDown;
Label17: TLabel;
Edit13: TEdit;
UpDown5: TUpDown;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
MStLi1:TStringList;implementationuses Unit2;{$R *.DFM}
initialization
MStLi1.Create;
finalization
if assigned(MStLi1) then
MStLi1.Free;procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;procedure TForm1.FormCreate(Sender: TObject);
Var
f:TIniFile;
begin
f:=TIniFile.Create('.\Cofsys.ini');
With f do Try
ComboBox1.Text:=f.ReadString('one','1','');
Edit1.Text:=f.ReadString('one','2','');
Edit2.Text:=f.ReadString('one','3','');
UpDown1.Position:=StrToInt(f.ReadString('one','4',''));
ComboBox2.Text:=f.ReadString('two','1','');
Edit4.Text:=f.ReadString('two','2','');
Edit5.Text:=f.ReadString('two','3','');
UpDown2.Position:=StrToInt(f.ReadString('two','4',''));
ComboBox3.Text:=f.ReadString('three','1','');
Edit7.Text:=f.ReadString('three','2','');
Edit8.Text:=f.ReadString('three','3','');
UpDown3.Position:=StrToInt(f.ReadString('three','4',''));
ComboBox4.Text:=f.ReadString('four','1','');
Edit10.Text:=f.ReadString('four','2','');
Edit11.Text:=f.ReadString('four','3','');
UpDown4.Position:=StrToInt(f.ReadString('four','4',''));
UpDown5.Position:=StrToInt(f.ReadString('Order','1',''));
Finally
Free;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2,Form2);
Form2.Showmodal;
end;end.
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, IniFiles;type
TForm1 = class(TForm)
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit3: TEdit;
UpDown1: TUpDown;
ComboBox2: TComboBox;
Label5: TLabel;
Label6: TLabel;
Edit4: TEdit;
Label7: TLabel;
Edit5: TEdit;
Label8: TLabel;
Edit6: TEdit;
UpDown2: TUpDown;
ComboBox3: TComboBox;
Label9: TLabel;
Label10: TLabel;
Edit7: TEdit;
Label11: TLabel;
Edit8: TEdit;
Label12: TLabel;
Edit9: TEdit;
UpDown3: TUpDown;
ComboBox4: TComboBox;
Label13: TLabel;
Label14: TLabel;
Edit10: TEdit;
Label15: TLabel;
Edit11: TEdit;
Label16: TLabel;
Edit12: TEdit;
UpDown4: TUpDown;
Label17: TLabel;
Edit13: TEdit;
UpDown5: TUpDown;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
MStLi1:TStringList;implementationuses Unit2;{$R *.DFM}
initialization
MStLi1.Create;
finalization
if assigned(MStLi1) then
MStLi1.Free;procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;procedure TForm1.FormCreate(Sender: TObject);
Var
f:TIniFile;
begin
f:=TIniFile.Create('.\Cofsys.ini');
With f do Try
ComboBox1.Text:=f.ReadString('one','1','');
Edit1.Text:=f.ReadString('one','2','');
Edit2.Text:=f.ReadString('one','3','');
UpDown1.Position:=StrToInt(f.ReadString('one','4',''));
ComboBox2.Text:=f.ReadString('two','1','');
Edit4.Text:=f.ReadString('two','2','');
Edit5.Text:=f.ReadString('two','3','');
UpDown2.Position:=StrToInt(f.ReadString('two','4',''));
ComboBox3.Text:=f.ReadString('three','1','');
Edit7.Text:=f.ReadString('three','2','');
Edit8.Text:=f.ReadString('three','3','');
UpDown3.Position:=StrToInt(f.ReadString('three','4',''));
ComboBox4.Text:=f.ReadString('four','1','');
Edit10.Text:=f.ReadString('four','2','');
Edit11.Text:=f.ReadString('four','3','');
UpDown4.Position:=StrToInt(f.ReadString('four','4',''));
UpDown5.Position:=StrToInt(f.ReadString('Order','1',''));
Finally
Free;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2,Form2);
Form2.Showmodal;
end;end.
解决方案 »
- Delphi Access排序问题
- 如何将文件夹及其子文件夹下的文件的只读属性去掉?
- 问个傻傻的存储过程问题
- 急救一菜鸟!
- @@@@@pString在以下情况是否需要是否内存?多谢!!@@@@@
- 郁闷,完全搞不懂!pas的问题!
- 关于行列转换
- 以前左轻候先生的开发者资源社区现在搬到哪儿去了?听说叫什么icq,请知道地址的告诉一下(null)
- 关于日期条件查询的问题
- delphi2010 编译好的程序放在其他电脑上运行,无法筛选。必须安装delphi2010才能筛选
- 数据表中性别是'1'或'2',能否从DBGrid中显示成'男'或'女'?
- http://kingron.myetang.com/进不去了,那还有《猛科》下载啊
MStLi1.Create;
finalization
if assigned(MStLi1) then
MStLi1.Free;end. //放在最后的位置;“end.”上面!