把一个函数保存为一个单独的文件给别人引用最起码要哪些代码

Question

比如下面这个函数
function TestOpenFile(FileName:String):Boolean;
var
  FileHandle:Integer;
begin
  FileHandle:=FileOpen(FileName,fmOpenWrite);
  FileClose(FileHandle);
  if FileHandle < 0 then
  begin
    TestOpenFile=False;//can not open
  end else begin
    TestOpenFile=true;
  end;
end;
如果要保存为一个单独的单元给别人调用，至少要用到哪些代码，才能在别人引用的时候不出错

Answer 1

unit Unit2;interfacefunction TestOpenFile(FileName: string): Boolean;implementationuses SysUtils;function TestOpenFile(FileName: string): Boolean;
var
  FileHandle:Integer;
begin
  FileHandle := FileOpen(FileName, fmOpenWrite);
  FileClose(FileHandle);
  TestOpenFile := FileHandle >= 0;
end;end.