delphi - 程序不满意的前向或外部声明

Question

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

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;

我看不出有什么问题。

Answer 1

要编译您的代码，只需删除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;