标题菜鸟捉虫(47)
栏目软件世界
发布2001年47期
上期正确答案:
我们应该在“WITH imgCtrl [i] DO BEIGN”中加入Parent=Form1,如果没有指定Parent(即将该控件显示在何处),那么将无法显示出控件来。
另一个错误在“OldTop:=imgCtrl.Top + Height+2”一句中,将其修改为OldTop:=imgCtrl[i-1].Top + Height+2;则可以正常显示出第三幅图片。
获奖名单:
江 苏 李中华
上 海 程 平
北 京 胡晓霞
黑龙江 龙志高
安 徽 鲍红军
以上幸运读者将获得电脑报最新出品的《电脑报系列配套光盘》杂志一套。
本期题目:
将一串英文字符进行倒序排序。源码如下,由于源码中有错误,不能完成倒序排序,请将下面的代码进行修正:
procedure TForm1.Button1Click(Sender: TObject);
var
i,nLen: integer;
strTemp,strText: String;
begin
strText:=Memo1.Text;
nLen:=Length(strText);
FOR i:=nLen DownTo 1 DO
BEGIN
strTemp:=Copy(strText,nLen,1);
strTemp:=strTemp + strTemp;
END;
Memo1.Text:=strTemp;
end;