Question

Delphi7.0的高手帮帮忙解决一下代码问题！！！！

修改按钮的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;

Answer 1

MyInifile:=Tinifile.Create(ExtractFilePath(Paramstr(0))+'workplan.ini');
创建一个.ini的文件（文件的名称为workplan.ini，路径与你运行的执行档所在路径相同，即运行的执行档在哪个文件夹，这个新建的workplan.ini文件就在哪个文件夹。eg.运行的执行档位于D:\Programs文件夹内，则新建文件的完整路径为D:\Programs\workplan.ini），ExtractFilePath(Paramstr(0))取执行档所在路径。
现在假设新建.ini文件为D:\Programs\workplan.ini，以方便后面解说。
代码：MyInifile.WriteString('WorkPlan','Time1',i_time1.Text);
解释：D:\Programs\workplan.ini文件中新增内容（假如i_time1.Text为图示内容8:00:00）：
[WorkPlan]
Time1=8:00:00
代码：MyInifile.WriteString('WorkPlan','Time2',i_time2.Text);
解释：D:\Programs\workplan.ini文件中新增内容（假如i_time2.Text为图示内容12:00:00）：
Time2=12:00:00
代码：MyInifile.WriteString('WorkPlan','Time3',i_time3.Text);
解释：D:\Programs\workplan.ini文件中新增内容（假如i_time3.Text为图示内容14:00:00）：
Time3=14:00:00
代码：MyInifile.WriteString('WorkPlan','Time4',i_time4.Text);
解释：D:\Programs\workplan.ini文件中新增内容（假如i_time4.Text为图示内容18:00:00）：
Time4=18:00:00

MyInifile.WriteString('WorkPlan','Time2',i_time2.Text);
MyInifile.WriteString('WorkPlan','Time3',i_time3.Text);
MyInifile.WriteString('WorkPlan','Time4',i_time4.Text);
共用一个SectionName（WorkPlan），所以只有MyInifile.WriteString('WorkPlan','Time1',i_time1.Text);
时新增行[WorkPlan]，后面三个共用[WorkPlan]，不用再新增。

最后生成的D:\Programs\workplan.ini文件内容为：
[WorkPlan]
Time1=8:00:00
Time2=12:00:00
Time3=14:00:00
Time4=18:00:00

以上若还有疑问，可以Hi我。

Answer 2

这东西要干什么呢,不明白

追问

修改按钮代码为：
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;
帮忙翻译一下代码好吗，谢谢

追答

刚看见,上面说的很好了

Answer 3

请问你需要解决什么呢？

追问

解释下这段代码的具体作用