求高手帮写一个循环 本帖最后由 kayoo 于 2012-06-27 21:32:26 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var i,j:integer;begin for i:=100 to 200 do for j:=100 to 200 do if i<>100 then if (Form1.Canvas.Pixels[i,j]=0) And (Form1.Canvas.Pixels[i-1,j]=0) then begin showmessage('找到了'); exit; end;end; 按键精灵得插件都是用什么语言做的 我想在程序中实现IP查主机和域名的功能 如何重载ClientDataSet的BeforePost事件???? 在线等待高手的回答。。。。。。 奇怪的问题 怎么随机产生体育彩票号码 ? 一个问题? ODBC的连接问题 有谁知道在哪有Delphi 6的联机帮助下载(中文的)? For Delhpi 5的控件可以安装到delphi6吗? delphi如何将用户选择的ComboBox对应字段导入到新表中 delphi7 从1-200组中随机抽取6组数据,抽完了然后从又从1-194组中抽6组,并继续至抽完所有。
i,j:integer;
begin
for i:=100 to 200 do
for j:=100 to 200 do
if i<>100 then
if (Form1.Canvas.Pixels[i,j]=0) And (Form1.Canvas.Pixels[i-1,j]=0) then
begin
showmessage('找到了');
exit;
end;
end;