一个问了七遍的小问题，为什么没人帮帮我呢，帮我看看吧。(0分)

阿

阿波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-20

• #1

我在EDIT1中输入了一串数，如；1234。。。，也可能是345612。。。。，就是说长度事先
未定，我LENGTH（EDIT。TEXT）=L后，再COPY（EDIT1。TEXT，L-1，2）。。。COPY（EDIT。TEXT，L-N，2）；
然后要将COPY1+COPY2。。。+COPYN；如何实现啊，请那位老兄给我讲讲，谢谢了。

 

S

smilelove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-20

• #2

没看明白,什么意思?

 

X

xygz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-20

• #3

procedure ....
var i:integer;
str:string;
begin
l:=length(edit1.text);
str:='';
i:=1;
if l>n then
begin
while i<n+1do
begin
str:=str+copy(edit1.text,l-i,2);
i:=i+1;
end;
end;
end;

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-20

• #4

s:string;
for i:=1 to ndo
begin
L=LENGTH（EDIT.TEXT）;
s:=s+COPY（EDIT.TEXT，L-N，2）；
end;
不就完成了!!!!!
多看些书，总会解决问题的

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #5

接受答案了.