Memo1.Clear;
Memo1.Lines.Add('Hello'); // Memo1.Lines.Strings[0]存在了
Memo1.Lines.Add('World!'); // Memo1.Lines.Strings[1]存在了

解决方案 »

  1.   

    Procedure getch(ch:char);
    begin
    ...
      Form1.Memo1.
    //~~~~~
    ...
    end;
      

  2.   

    你所写的是一个普通的函数
    不是对象的方法
    ...
    type
      TForm1 = class(TForm)
    ...
      publicsh
        procedure getch(ch: char);
    ...
      end;
    ...procedure TForm1.getch(ch: char);
    //        ~~~~~~~这才是对象的方法,才可以直接访问对象的元素(如:Memo1)
    begin
    ...
      Memo1.
    ...
    end;
      

  3.   

    Memo1是TForm1的一个元素
    Memo1并不是独立的变量,所以不能直接访问嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻
    嘻嘻嘻清楚了吧嘻嘻嘻嘻
    嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻