Question

delphi 请大神帮忙，小弟跪谢。

我现在有三个控件，button1 tedit1 和memo1 ，程序运行后，在memo1里随便写入三行文字， 然后我点击按钮，tedit1显示memo1的第一行内容，在点击按钮显示memo1的第二行内容，怎么用循环做出来，有时候数据量太大，在这里跪求大神帮忙了。

Answer 1

定义一个全局变量x
var
x:integer;
在按钮里
tedit1.text=memo1.Lines.Strings[x];
inc(x);

追问

你后边的inc是什么意思？

追答

x变量自增1
也就相当X:=X+1;

追问

哦哦 还有就是怎么用循环做，是点击一下按钮就换一行，是怎么实现的。

追答

不需要循环了，x增加1了。
tedit1.text:=memo1.Lines.Strings[x]; //取x行的值。

追问

因为我要做的时候memo1里有100行，我每次取10行的内容，而且memo1里边的行数还不固定，有时候可能更多，要不用循环可以做么，谢谢大哥了。

追答

如果一次要取10行的内容需要修改按钮事件
定义局部量i;
var
i:integer;
str:string;
str:='';
for i:=1 to 10 do
begin
if x+i>memo1.Lines.Count then break;
str:=str+memo1.Lines.Strings[x+i];
end;
tedit1.text:=str;
inc(x);