菜鸟捉虫(47)

  
2001年 47期

#2　　上期正确答案：
　　　　我们应该在“WITH imgCtrl [i] DO BEIGN”中加入Parent=Form1，如果没有指定Parent（即将该控件显示在何处），那么将无法显示出控件来。
　　　　另一个错误在“OldTop:=imgCtrl.Top + Height+2”一句中，将其修改为OldTop:=imgCtrl[i-1].Top + Height+2;则可以正常显示出第三幅图片。
　　#2　　获奖名单：
　　　　江  苏  李中华
　　　　上  海  程  平
　　　　北  京  胡晓霞
　　　　黑龙江  龙志高
　　　　安  徽  鲍红军
　　　　以上幸运读者将获得电脑报最新出品的《电脑报系列配套光盘》杂志一套。
　　#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; 
 