引言: procedure Tform1.BitBtn1Click(Sender: TObject); var txfile: Textfile; begin AssignFile(txfile, stxtName); Reset(txfile); while Not Eof(txfile) do begin ReadLn(txfile, str); ........ end; CloseUseFile(txfile); end; procedure Tform1.CloseUseFile(AAA: ???); begin CloseFile(AAA); ...... end; 以上範例中的 CloseUseFile 是我自己寫的procedure 但是不知道這個procedure CloseUseFile(AAA: ???); 當中的key該如何定義? 麻煩指導一下!!!

procedure Tform1.CloseUseFile(AAA: File);
begin
  CloseFile(AAA);
  ......
end;

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure CloseUseFile(var f: TextFile);
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var
  f : TextFile;
  s : string;
begin
  if FileExists( 'C:\a.txt' ) then begin
    Memo1.Clear;
    AssignFile( f, 'C:\a.txt' );
    Reset( f );
    while NOT EOF(f) do begin
      ReadLn( f, s );
      Memo1.Lines.Add( s );
    end;
    CloseUseFile( f );
  end;
end;    procedure TForm1.CloseUseFile(var f: TextFile);
begin
  CloseFile( f )
end;    end.