我阅读一段代码有类似如下语句的一段,请解答一下它的执行顺序j:=1
for i:=1 to 8 do
begin
…A…
case j of
1:
begin
…B…
j:=3;
end;
2:
begin
…C…
j:=1;
end;
3:
begin
…D…
j:=4;
end;
4:
begin
…E…
end;
5:
begin
…F…
j:=2
end;
6:
begin
…G…
end;
end;
for i:=1 to 8 do
begin
…A…
case j of
1:
begin
…B…
j:=3;
end;
2:
begin
…C…
j:=1;
end;
3:
begin
…D…
j:=4;
end;
4:
begin
…E…
end;
5:
begin
…F…
j:=2
end;
6:
begin
…G…
end;
end;
解决方案 »
- TreeView不会弄了。从发一下.
- 谁能将这个十几行的delphi7程序改为vb6
- skinadapter 使用问题
- 如何取一个程序已经加载的 dll基址
- 用Adoquery运行存储过程出现的问题(也许你也遇过哦)
- TSHFileOpStruct操作中的句柄如何处理
- 第二次关于'DBLookupComboBox'??????????????????????????????????????????
- 关于自创控件的问题请教
- 创建ACCESS数据库时的小问题!
- 程序员的健康问题??
- 关于传单
- ADO组件中有没有和BATCHMOVE功能相似的控件?也就是说要用BATCHMOVE连ADOTABLE该怎办?
…B…
…A…
…D…
…A…
…E…
…A…
…E…
…A…
…E…
…A…
…E…
…A…
…E…
…A…
…E…
J , I : Integer;
begin
j:=1 ;
for i:=1 to 8 do
begin
Memo1.Lines.Add('0 …A…');
case j of
1:
begin
Memo1.Lines.Add(IntToStr(I) + '…B…');
j:=3;
end;
2:
begin
Memo1.Lines.Add(IntToStr(I) + '…C…');
j:=1;
end;
3:
begin
Memo1.Lines.Add(IntToStr(I) + '…D…');
j:=4;
end;
4:
begin
Memo1.Lines.Add(IntToStr(I) + ' …E…');
end;
5:
begin
Memo1.Lines.Add(IntToStr(I) + '…F…');
j:=2
end;
6:
begin
Memo1.Lines.Add(IntToStr(I) + '…G…');
end;
end;
end;
那段代码太复杂了,条件也比这多,我看的有些头大
而且写程序人的解释和你不同ABDEAEAEAEAEAEAEAE
1…B…
0 …A…
2…D…
0 …A…
3 …E…
0 …A…
4 …E…
0 …A…
5 …E…
0 …A…
6 …E…
0 …A…
7 …E…
0 …A…
8 …E…
1…B…
0 …A…
2…D…
0 …A…
3 …E…
0 …A…
4 …E…
0 …A…
5 …E…
0 …A…
6 …E…
0 …A…
7 …E…
0 …A…
8 …E…
我用上面的方法试试,呵呵,蹭点分!