本文整理自网络,侵删。
program ExitLoop;{$APPTYPE CONSOLE}begin for var i:=1 to 10 do begin for var l:=1 to 10 do begin Writeln(i, ',' , l); if (i = 5) and (l = 5) then
end; end;
Writeln('Done.'); Readln;end.
相关阅读 >>
Delphi vcl 在trichedit控件中设置wordwrap属性后无法自动换行的问题
Delphi webbrowser 无法调用当前浏览器的版本
更多相关阅读请进入《Delphi》频道 >>