变量定义问题！定义一个变量，该变量可以像memo一样支持逐行的写入字符。请问如何定义？(50分)

C

coolwindfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-24

• #1

定义变量

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-24

• #2

用TStringList
var
sList: TStringList;
begin
sList := TStringList.Create;
sList.Add('第1行');
sList.Add('第2行');
sList.Add('第3行');
......
//其实TMemo.Lines属性就是TStrings,TStrings就是TStringList的父类。
sList.Free;
end;
//不知道这是不是楼主想要的？

 

隐

隐士山人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-24

• #3

var M:Tmemo;//变量M就具有了memo的属性.

 

杯

杯中水

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-24

• #4

补充：不能将Memo控件拖到界面上，只是简单得定义
和拖到界面上得MEMO控件区别就是非可视化，^_^

 

B

bbscom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-24

• #5

var
ItemList:TStringList;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Text:=ItemList.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
I:Integer;
begin
ItemList:=TStringList.Create;
For I:=1 To 10 Do
ItemList.Add('Input String:'+IntToStr(I));
end;

 

C

coolwindfly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-24

• #6

多人接受答案了。