Question

嘿伙计们，我不知道这是否是一种基本的Delphi逻辑，但我的问题如下：

我试图编写一个名为show i的程序，我从文本文件中取出了一个arry，现在我想让我的程序在一个richedit中显示该数组。

const
Damnaam = 200;
var
  Form1: TForm1;
  arrdam : array[1..Damnaam] of string;
  iTelDam : integer;
  Myler : Textfile;
implementation

{$R *.dfm}    


procedure  LIST;

begin
if FileExists ('Dam.txt') <> true then
 begin
 MessageDlg ('The file does not exist.',mtError,[mbOk],0);
 Exit;
 end;
 AssignFile(MyFile, 'Dam.txt');
 Reset (MyFile);
 while (NOT EOF (MyFile)) AND (icountDam < DamName) do
 begin
 inc(icountDam);
 readln(Myfile,arrDam[icountDam]);
 end;

end;

 procedure Show;
var
icount : integer;
begin
for icount := 1 to icountdam do
redoutput.lines.add(arrdam[icount]);
end;

它不断发出以下错误：

未声明的标识符：RedOutput 我无法理解为什么。

Answer 1

在程序

中使用后，必须在全局声明redoutput对象

在制作自己的程序时未声明的标识符

1 个答案: