大家好,我有一个edit框捕获OpenDialog的文件名,然后将该串string写到ini文件中去,却发现直接在edit框里写的string能写到文件中,而通过opendialog得到的string却怎么也些不到ini文件中,正是太奇怪了,不知道大家遇到过没有这种情况,希望有高人指点一二,谢谢。
代码如下://打开选项窗口
procedure TFormMain.ActToolOptionExecute(Sender: TObject);
begin
Application.CreateForm(TFormOption,FormOption);
if FormOption.ShowModal = mrOK then //存储所有配置信息
with FormOption do
begin
ini.WriteString('SZbp','Sjswt',Trim(EdSjswt.Text));
end;
FormOption.Release;
end;//选择深交所委托库
procedure TFormOption.BtnOpnSjswtClick(Sender: TObject);
begin
OpnSjswtDlg.Filter := 'DBF文件(*.dbf)|*.dbf|所有文件(*.*)|*.*';
OpnSjswtDlg.Title := '请选择深交所委托库(*.dbf)';
OpnSjswtDlg.FileName := '';
if (OpnSjswtDlg.Execute) then
EdSjswt.Text := OpnSjswtDlg.FileName;
end;之前ini文件已经正常初始化了,自我感觉代码应该没有问题的呀。
代码如下://打开选项窗口
procedure TFormMain.ActToolOptionExecute(Sender: TObject);
begin
Application.CreateForm(TFormOption,FormOption);
if FormOption.ShowModal = mrOK then //存储所有配置信息
with FormOption do
begin
ini.WriteString('SZbp','Sjswt',Trim(EdSjswt.Text));
end;
FormOption.Release;
end;//选择深交所委托库
procedure TFormOption.BtnOpnSjswtClick(Sender: TObject);
begin
OpnSjswtDlg.Filter := 'DBF文件(*.dbf)|*.dbf|所有文件(*.*)|*.*';
OpnSjswtDlg.Title := '请选择深交所委托库(*.dbf)';
OpnSjswtDlg.FileName := '';
if (OpnSjswtDlg.Execute) then
EdSjswt.Text := OpnSjswtDlg.FileName;
end;之前ini文件已经正常初始化了,自我感觉代码应该没有问题的呀。
procedure TFormOption.BtnOpnSjswtClick(Sender: TObject);
begin
OpnSjswtDlg.Filter := 'DBF文件(*.dbf)|*.dbf|所有文件(*.*)|*.*';
OpnSjswtDlg.Title := '请选择深交所委托库(*.dbf)';
OpnSjswtDlg.FileName := '';
if (OpnSjswtDlg.Execute) then
begin
if OpnSjswtDlg.FileName <> '' then
begin
EdSjswt.Text := OpnSjswtDlg.FileName;
end
else
begin
showmessage('没有选择文件');
end;
end;
end;
另外我用的是delphi7.0(Build 8.1)以下是ini文件内容:
[general]
filename=111111以下是程序代码:
procedure TForm1.FormCreate(Sender: TObject);
begin
ini := TiniFile.Create('.\sini.ini');
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
ini.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text := OpenDialog1.FileName;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
ini.WriteString('general','filename',Edit1.Text);
end;procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage(ini.Readstring('general','filename',''));
end;