E2054 Write/Writeln 文に正しくない型が渡されました (Object Pascal)

提供: Appmethod Topics
移動先: 案内検索

エラーと警告のメッセージ(Object Pascal):インデックス への移動

このエラーは合法でない型を Write 文または Writeln 文に正しくない型の引数が渡されたときに起きます。


program Produce;
type
  TColor = (red,green,blue);
var
  Color : TColor;
begin
  Writeln(Color);
end.

{ Color を直接 Writeln 文の引数には指定できない }


program Solve;
type
  TColor = (red,green,blue);
var
  Color : TColor;
const
  ColorString : array [TColor] of string = ('red', 'green', 'blue');
begin
  Writeln(ColorString[Color]);
end.

{ Color を出力するには,補助配列を使用しなければならない }