delphi保存问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 21:28:44
写了个双色球选号的小程序，结果是随机输出5个结果分别到edit1.text...edit5.text中；这个已经完成，现在想写个保存按钮，将5个edit.text中的结果保存到1个文本中，然后再随机选出结果点保存，可以保存在刚才文本的下一行，和上一行以====================隔开；

但是估计很复杂，现在想先完成输出一组5个结果再说吧，在csdn上问别人，给个这个结果
procedure TForm1.Button2Click(Sender: TObject);
var
f:Textfile;
s:string;
FilePath:string;
begin
s:='';
s:=edit1.Text+edit2.Text;
AssignFile(f,FilePath);
if FileExists(FilePath) then
Append(f)
else
Rewrite(f);
Writeln(f,s);
CloseFile(f); //关闭文件
end;

然后执行发现可以通过，但是一点保存就报错i/o error 105；报错后提示rewrite(f);这个
=================================================================
现想向各位求助，能否帮我写个完整的出来，或者指出我这个的错误在哪，如果还能实现我上面说到的分行把每组结果保存的话就最好了。分是大大的有

procedure TForm1.Button2Click(Sender: TObject);
var
f:Textfile;
s:string;
FilePath:string;
begin
FilePath:='c:\d.txt';//你保存文件的地址
s:='';
s:=edit1.Text+' '+edit2.Text+' '+edit3.Text+' '+edit4.Text+' '+edit5.Text+#13+#10+'====================';
AssignFile(f,FilePath);
if FileExists(FilePath) then
Append(f)
else
Rewrite(f);
Writeln(f,s);
CloseFile(f); //关闭文件

end;

错误原因是你没有给出保存文件的路径，没有给FilePath赋值，(FilePath:='c:\d.txt';//你保存文件的地址),所以出现这种文件读取错误, 这样一改，就可以分行把每组结果保存下来了,试一下。