[sova_bos]

Если оставить одно из условий, то линия вырисовывается, а если так как в коде ниже, то не вырисовывается ничего ни при каких значениях.
Предупреждение при компилции "FOR-Loop variable 'x'\'y' may be undefined after loop"
Спасибо

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm1.Button1Click(Sender: TObject); var x,x1,x2,y,y1,y2:integer; begin x1:=strtoint(edit1.text); x2:=strtoint(edit2.text); y1:=strtoint(edit3.text); y2:=strtoint(edit4.text); if (x1<x2) and (y1=y2) then   for x:=x1 to x2 do   Form1.Canvas.Pixels[x,y]:=clBlack; if (y1<y2) and (x1=x2) then   for y:=y1 to y2 do   Form1.Canvas.Pixels[x,y]:=clBlack; if (x1>x2) and (y1=y2) then   for x:=x1 downto x2 do   Form1.Canvas.Pixels[x,y]:=clBlack; if (y1>y2) and (x1=x2) then   for y:=y1 downto y2 do   Form1.Canvas.Pixels[x,y]:=clBlack; if (x1<>x2) and (y1<>y2) then   ShowMessage('Начальные и конечные значения одной из осей должны быть равны!'); end;

[angvelem]

Конечно должно быть предупреждение:

Код:

1 2 3 4 5

... if (x1<x2) and (y1=y2) then   for x:=x1 to x2 do   Form1.Canvas.Pixels[x,<font color="Red">y</font>]:=clBlack; ...

откуда берётся значение переменной y? И так по всем циклам.

[sova_bos]

ой, точно
спасибо

[angvelem]

Но лучше рисовать линии не по пикселам, а использовать LineTo, MoveTo.