L
lah998
Unregistered / Unconfirmed
GUEST, unregistred user!
请各位朋友看看我的代码哪里错了， 我在Myini.ini文件里保存的东西不见了！
步骤是这样的：1.在Edit1里写一些东西. 2.单击CheckBox1(保存Edit1里的东西),然后关闭窗体。
3.再次打开窗体，发现保存的东西不见了！
procedure TForm1.OnCreate(Sender: TObject);
var
Myini:TINIFile;
begin
Myini:=TINIFile.Create('Myini.ini');
CheckBox1.Checked:=Myini.ReadBool('保存密码','Checked1',false);
Myini.Free ;;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
var
Myini:TINIFile;
Mymima:string;
begin
if CheckBox1.Checked then
begin
Myini:=TINIFile.Create('Myini.ini');
Myini.WriteBool('保存密码','Checked1',True);
Myini.WriteString('保存密码','Mymima',Edit1.Text );
end
else
begin
Myini:=TINIFile.Create('Myini.ini');
Myini.WriteBool('保存密码','Checked1',False);
Myini.WriteString('保存密码','Mymima','0');
end;
Myini.Free ;
end;
步骤是这样的：1.在Edit1里写一些东西. 2.单击CheckBox1(保存Edit1里的东西),然后关闭窗体。
3.再次打开窗体，发现保存的东西不见了！
procedure TForm1.OnCreate(Sender: TObject);
var
Myini:TINIFile;
begin
Myini:=TINIFile.Create('Myini.ini');
CheckBox1.Checked:=Myini.ReadBool('保存密码','Checked1',false);
Myini.Free ;;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
var
Myini:TINIFile;
Mymima:string;
begin
if CheckBox1.Checked then
begin
Myini:=TINIFile.Create('Myini.ini');
Myini.WriteBool('保存密码','Checked1',True);
Myini.WriteString('保存密码','Mymima',Edit1.Text );
end
else
begin
Myini:=TINIFile.Create('Myini.ini');
Myini.WriteBool('保存密码','Checked1',False);
Myini.WriteString('保存密码','Mymima','0');
end;
Myini.Free ;
end;