Question

我已经尝试过一个程序来完成标题所说的内容，尽管到目前为止我还没有运气。

这是：

procedure TForm1.ReadFile(a: File; b : string); // File type not allowed here.
begin
  if FileExists(a) = False
    then
      begin
        ShowMessage ('File not found, program shutting down');
        Application.Terminate;
      end;
  AssignFile (b, a); // Incompatible types
  Reset(b); //Incompatible types
end;

首先，这是否可能？如果是这样，请告诉我如何！

Answer 1

试试这个： -

procedure TForm1.ReadFile(Const pFileName : string);
Var
  lFile : File;
begin
  if FileExists(pFileName) Then
  Begin
    AssignFile(lFile, pFileName);
    Reset(lFile);
    // Do whatever processing is required.
    CloseFile(lFile);
  End
  Else
  begin
    ShowMessage ('File not found, program shutting down');
    Application.Terminate;
  end;
end;

为了它的价值，你不应该再使用旧的Pascal内在函数来处理文件了。查看TFileStream及其后代类的文档会更好。

文本文件检查，分配和读取的自定义过程？ DELPHI

1 个答案: