文件操作出问题了

Question

请问下面的一段代码怎么修改？function Tform11.SaveData(tree : TTreeView; filePath : string):boolean;
//////////////说可能返回值类型不对。真的不对吗？
var
  RecfileVar : textfile;
  i : integer;
  tempStr : String;
begin
  assignfile(Recfilevar, filePath);
  if not fileexists(filepath) then
  begin
    showmessage('no such file!');
    exit;
  end;
  rewrite(recfilevar);
  for i:=0 to tree.Items.Count-1 do
  begin
    tempStr := inttostr(tree.items[i].level)+' '+trim(tree.items[i].text);
    showmessage(tempStr);
    writeln(filepath, tempStr);///////不懂，报错!!!!
  end;
  closeFile(recFileVar);
end;

Answer 1

修改
writeln(filepath, tempStr);
为
writeln(recfilevar, tempStr);