delphi - 不满意的程序前向声明(forward declaration)或外部声明

我的程序无法编译，因为它说我的程序有一个不满意的前向声明或外部声明...我实际上不知道那意味着什么...

private
  procedure ShowData;

implementation

procedure ShowData;
var
  Cycle2UFile : textfile;
  Str : String;
  J,
  Count : integer;
begin
  Count := 0;
  AssignFile( Cycle2UFile, 'data.txt' );
  Reset( Cycle2UFile );
  While not EOF( Cycle2UFile ) do
    begin
      Inc( Count );
      ReadLn( Cycle2UFile , ArrNames[Count] );
      ReadLn( Cycle2UFile, ArrSales[Count] );
    end;
  CloseFile( Cycle2UFile );
  // Randomize;
end;

我看不到任何问题。

最佳答案

要使您的代码编译，只需删除该private。

private是一个delphi关键字，仅在类定义中才知道，但是使用独立变量没有任何意义。

// private
  procedure ShowData;

implementation

procedure ShowData;
var
  Cycle2UFile : textfile;
  Str : String;
  J,
  Count : integer;
begin
  Count := 0;
  AssignFile( Cycle2UFile, 'data.txt' );
  Reset( Cycle2UFile );
  While not EOF( Cycle2UFile ) do
    begin
      Inc( Count );
      ReadLn( Cycle2UFile , ArrNames[Count] );
      ReadLn( Cycle2UFile, ArrSales[Count] );
    end;
  CloseFile( Cycle2UFile );
  // Randomize;
end;