Question

delphi 7循环语句的问题

将下面一段程序改成for..do循环：
x:=num1;y:=num2;
while y<>0 do
begin
temp:=x mod y;
x:=y;
y:=temp;
end;
x,y>0
初始时x<y

Answer 1

不太明白你这个循环有什么意义，这段程序运行的最后结果是，你的edit1到edit5的text里是最后一条数据的值，即软显示最后一条么，直接就把uup_query的指针定位到last么就行了，何必再做一个循环呢？
把循环结构去掉，只保存里面的循环体
while
not
Eof
do
begin
edit1.Text:=fieldbyname('stu_name').AsString;
edit2.Text:=fieldbyname('stu_age').AsString;
edit3.Text:=fieldbyname('stu_sex').AsString;
edit4.Text:=fieldbyname('stu_tel').AsString;
edit5.Text:=fieldbyname('stu_address').AsString;
next;
end;
改成
if
recordcount>0
then
begin
edit1.Text:=fieldbyname('stu_name').AsString;
edit2.Text:=fieldbyname('stu_age').AsString;
edit3.Text:=fieldbyname('stu_sex').AsString;
edit4.Text:=fieldbyname('stu_tel').AsString;
edit5.Text:=fieldbyname('stu_address').AsString;
next;
end;
然后新建一个按钮，在它的click事件里加入
with
uup_query
do
begin
if
not
eof
then
begin
edit1.Text:=fieldbyname('stu_name').AsString;
edit2.Text:=fieldbyname('stu_age').AsString;
edit3.Text:=fieldbyname('stu_sex').AsString;
edit4.Text:=fieldbyname('stu_tel').AsString;
edit5.Text:=fieldbyname('stu_address').AsString;
next;
end;
end;

Answer 2

x:=num1;y:=num2;
z:=x;
for i:=0 to z do
begin
temp:=x mod y;
x:=y;
y:=temp;
if y=0 then break;
end;
其实就是在条件达到时退出循环。
这个算法最好还是用while 或repeat循环，用for循环要麻烦一点。

Answer 3

能改么？这根本不知道循环的次数。。。
初学者 路过~~

Answer 4

x=10 y=8

for i:=0 to x do
begin

xy=x mod y

end;