网站 › 『 编程之美 』 › 问个简单的问题？(已解决)

yingfeng 发表于 2007-12-22 19:24:22

问个简单的问题？(已解决)

procedure TForm1.Button1Click(Sender: TObject); //练习FOR语句跟COPY函数，要求文本框返回字符串
var i:Integer; //定义i的类型为整数型
b,c:string ; // 定义b,c变量为字符串
begin
b:='welcome' ; //赋值给b
for i:=1 to Length(b) do //FOR语句　，length(b)返回b的长度
c:=c+(Copy('welome',i,1) ) ; //c:取出的每位字符相连
Edit1.text:=c ; //把结果C变量传给文本框
end;
end.


为何结果为空，各位帮忙看下，我的目的是要返回"welcome'

[ 本帖最后由 yingfeng 于 2007-12-22 19:32 编辑 ]

deletex 发表于 2007-12-22 20:45:03

解决要顺便写出解决方法哦,,

华佗 发表于 2007-12-23 14:44:29

呵呵，怎么解决的？

查看完整版本: 问个简单的问题？(已解决)