Question

delphi 循环问题

memo1内容有：
123
456
memo2内容有：
321
654
如何做循环让memo3得出内容
123321
123654
456321
456654
分不多，高手帮我解决下。谢谢了。。

Answer 1

这个貌似没太大的难度啊，依次读取memo1、memo2的lines属性，lines是TStrings类型，直接循环读取每行内容，再进行组合一下，写入memo3的lines就行了。

Answer 2

t1.text:=memo1.text;
t2.text:=memo2.text;
for i:=0 to t1.count-1 do
for j:=0 to t2.count-1 do
s:=t1.strings[i]+t2.strings[j];/////