对程序的前瞻性或外部声明不满意

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;