如何把MEMO中的串用循环方式给EDIT赋值？ ( 积分: 50 )

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-26

• #1

如：
在FORM上放了五个EDIT控件，
edit1,edit2,edit3,edit4,edit5
如何用（memo1.Lines.Count=5)
for i:=0 to memo1.Lines.Count-1 do
begin
?:=memo1.Lines.strings
end;
如果是动态创建的就可以
procedure TForm1.Button1Click(Sender: TObject);
var
ET : array of TEdit;
i : integer;
begin
SetLength(ET,10); //分配内存,这里的100可以用变量来代替
ET:=TEdit.Create(panel1);
with ET do
begin
Parent := PANEL1;
LEFT := 15+i*85;
Height := 25;
Width := 70;
Top := 40;
text := 'ET'+IntToStr(i);
OnClick := Edit1Change; //点击事件
Show;
End;
end;
End;

 

Y

ysp娃娃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-26

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to self.ControlCount-1 do
if (Controls is TEdit ) then
(Controls as TEdit).Text:= memo1.Lines.strings;
end;
就是你的Edit的数量和Memo的行的数量一样

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-26

• #3

TO ysp娃娃:
但我的EDIT数量多个MEMO行数.该如何?

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-26

• #4

在线等待.请大家帮帮我.

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-26

• #5

那么多出来的 Edit 就不赋值吧。

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-26

• #6

比如我的MEMO有五行.
Edit1,Edit2,Edit3,Edit4,Edit5
其它不赋值

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-26

• #7

提前了多次了，怎么没有人回答了？

 

R

rwlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-26

• #8

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 5 do
begin
(findcomponent('edit'+inttostr(i)) as tedit).text := memo1.Lines.strings[i-1];
end;
end;

代码:

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-26

• #9

多谢rwlin你的方法可以了。
也谢ysp娃娃。