[sova_bos]

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

Код:

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]

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

Код:

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

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

[sova_bos]

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

[angvelem]

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