2

プロシージャに満たされていない前方宣言または外部宣言があると表示されているため、プログラムがコンパイルされません...実際には、それが何を意味するのかわかりません...

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;

これに問題はありません。

4

1 に答える 1

4

コードをコンパイルするには、それを削除するだけですprivate。

privateはデルファイキーワードであり、クラス定義内でのみ認識されますが、スタンドアロンを使用しても意味がありません。

// 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;
于 2013-03-19T12:04:52.787 に答える