我的判断语句错在哪里高手指点!

看田水

procedure TForm1.Button2Click(Sender: TObject);
var
DC:HDC;
i, j: Integer;
begin
DC:=GetDC(0);
for i:=0 to 50 do
for j:=0 to 50 do
edit4.text:=InttoHex(GetPixel(DC,i,j),6);
ReleaseDC(0, DC);
if  edit4.text='101C10' then
begin
edit4.text:=char(i)+char(j);
EXIT;
end;
end;
//我的目的是从屏幕0,0坐标循环查找到50,50坐标.判断与'101C10'的颜色值对应的坐标x,y这段代码运行正常,但没有达到我要判断的效果.得出的结果都是坐标50,50的.估计是我的判断语句不对.高手给出代码.注:坐标25,25的颜色值是'101c10'

nocture

你的循环语句要加Begin，End吧
for i:=0 to 50 do
begin
  for j:=0 to 50 do
  begin
    edit4.text:=InttoHex(GetPixel(DC,i,j),6);
    if  edit4.text='101C10' then
    begin
      edit4.text:=char(i)+char(j);
      ReleaseDC(0, DC);
      EXIT;
    end;
  end;
end;

sanikoyes

你的程序的毛病有：
⒈没有正确区分语句块，BEGIN END的位置！
⒉API使用错误，你要在获取完全部PIXEL（GetPixel(x, y)）后再调用ReleaseDC(DC)

这是我修改后的，请看：
procedure TForm1.Button2Click(Sender: TObject);
var
  dc: hDC;
  i, j: Integer;
begin
  dc := GetDC(0);
  for i := 0 to 50 do
  begin
    for j := 0 to 50 do
    begin
      edit4.text := InttoHex(GetPixel(DC, i ,j), 6);
      if  edit4.text='101C10' then
      begin
        edit4.text:=char(i)+char(j);
        ReleaseDC(0, DC);
        EXIT;
      end;
    end;
  end;
  ReleaseDC(0, DC); // 这句要有，因为存在edit4.text='101C10' 不成立的情况
end;