修改按钮的click事件代码为:
var
MyInifile:Tinifile;
begin
MyInifile:=Tinifile.Create(ExtractFilePath(Paramstr(0))\'workplan.ini\');
MyInifile.WriteString(\'WorkPlan\',\'Time1\',i_time1.Text);
MyInifile.WriteString(\'WorkPlan\',\'Time2\',i_time2.Text);
MyInifile.WriteString(\'WorkPlan\',\'Time3\',i_time3.Text);
MyInifile.WriteString(\'WorkPlan\',\'Time4\',i_time4.Text);
end;
使用delphi能运行出下边那个模块就可以帮帮忙!~邮箱:[email protected]
|