c不会有d的 1到n var i:integer等于1 for i to length(1到n) do memo1。lines。add(copy(1到n,i,1)) 简单的就是通过for 取大小姐循环 copy取出,手机写的忘体谅!