Question

麻烦帮忙解释下这段delphi程序。关联是什么意思？注释越详细越好。

procedure Tform1.savedata1;
var
f:textfile;
inif:Tinifile;
i,j,maxcount:integer;
tmpstring,titlestr,tmpfile:string;
begin
tmpfile:=savedialog1.filename+form2.Series1.Title;
assignfile(f,tmpfile);
rewrite(f);
closefile(f);
inif:=TInifile.Create(tmpfile);
titlestr:='';
titlestr:=titlestr+form2.Series1.Title+',';
inif.WriteString('Data','Title',form2.Chart1.Title.Text.Text);
inif.WriteString('Data','Integration Time',inttostr(c)+'us');
inif.WriteString('Data','X-Axis',form2.Chart1.BottomAxis.Title.Caption);
inif.WriteString('Data','Y-Axis',form2.Chart1.LeftAxis.Title.Caption);
inif.WriteString('Data','Z-Axis',form2.Chart1.DepthAxis.Title.Caption);
inif.WriteString('Data','Datetime',Datetimetostr(Now));
inif.Free;
assignfile(f,tmpfile);
append(f);

Answer 1

procedure Tform1.savedata1;
var
	f:textfile; //文件指针
	inif:Tinifile; //ini文件操作类
	i,j,maxcount:integer;
	tmpstring,titlestr,tmpfile:string;
begin
	tmpfile:=savedialog1.filename+form2.Series1.Title; //生成文件名
	assignfile(f,tmpfile); //文件指针对应到tmpfile名字的文件
	rewrite(f);	//文件操作方法 重写文件 文件不存在则生成文件
	closefile(f); //关闭文件指针.
	inif:=TInifile.Create(tmpfile); //使用ini文件处理类来对文件进行操作
	titlestr:=''; //从这里往下都是写ini文件的的信息
	titlestr:=titlestr+form2.Series1.Title+',';
	inif.WriteString('Data','Title',form2.Chart1.Title.Text.Text); //这句意思是网data段里的title标签后写入form2.Chart1.Title.Text.Text里的字符串
	inif.WriteString('Data','Integration Time',inttostr(c)+'us');
	inif.WriteString('Data','X-Axis',form2.Chart1.BottomAxis.Title.Caption);
	inif.WriteString('Data','Y-Axis',form2.Chart1.LeftAxis.Title.Caption);
	inif.WriteString('Data','Z-Axis',form2.Chart1.DepthAxis.Title.Caption);
	inif.WriteString('Data','Datetime',Datetimetostr(Now));
	inif.Free;
	assignfile(f,tmpfile); //又用文件指针指向了对应的文件
	append(f); //这次打开文件后把文件指针指向文件尾部,就是写入数据接在文件的后面

Answer 2

//未经验证的注释，感觉代码有点多余
//保存图表信息
procedure Tform1.savedata1;
var
 f:textfile;
 inif:Tinifile;
 i,j,maxcount:integer;
 tmpstring,titlestr,tmpfile:string;
begin
 //开启保存对话框，取得文件名 
 tmpfile:=savedialog1.filename+form2.Series1.Title;
 //初始化f跟文件名关联
 assignfile(f,tmpfile);
 //清除tmpfile所对应文件
 rewrite(f);
 //关闭文件，这时txt文件名所对应的内容应该被清空了
 closefile(f);
 //创建ini文件
 inif:=TInifile.Create(tmpfile);
 titlestr:='';
 titlestr:=titlestr+form2.Series1.Title+',';
 //写入ini
 inif.WriteString('Data','Title',form2.Chart1.Title.Text.Text);
 inif.WriteString('Data','Integration Time',inttostr(c)+'us');
 inif.WriteString('Data','X-Axis',form2.Chart1.BottomAxis.Title.Caption);
 inif.WriteString('Data','Y-Axis',form2.Chart1.LeftAxis.Title.Caption);
 inif.WriteString('Data','Z-Axis',form2.Chart1.DepthAxis.Title.Caption);
 inif.WriteString('Data','Datetime',Datetimetostr(Now));
 inif.Free;
 //f关联到tmpfile
 assignfile(f,tmpfile);
 //内容加入到f
 append(f);
 
 //感觉没必要用到f:textfile;

Answer 3

就是把 chart1中的参数:'Title','Integration Time, x,y, z title 保存到 ini 配置文件中.