继承Memo，并增加一个String字段，请给出完整的代码！

Question

继承Memo，并增加一个String字段，请给出完整的代码！

Answer 1

你的String字段是干什么的？memo有memo1.text和memo1.lines.string[0]还不够使的？

Answer 2

unit MyMemo;interfaceuses
  SysUtils, Classes, Controls, StdCtrls;type
  TMyMemo = class(TMemo)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    MyString:String;
  published
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TMyMemo]);
end;end.

Answer 3

如果想出现在属性框中，就是下面的代码：
unit MyMemo;interfaceuses
  SysUtils, Classes, Controls, StdCtrls;type
  TMyMemo = class(TMemo)
  private
    FMyString: String;
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property MyString:String read FMyString  write FMyString;
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TMyMemo]);
end;end.