Задача:
Прямоугольник задан координатами левого верхнего и правого нижнего угла, отрезок координатами концов. Изобразить на эране следующую картинку:
прямоугольник и те части отрезка, которые не входят в область прямоугольника.
-------------------------------------------------------------------
Решение задачи:
см. LinRec.pas
-------------------------------------------------------------------
Вопрос:
Можно ли решить проще(Bar не предлагать!)?
-------------------------------------------------------------------

art88, во-первых, почему самый простой и надежный способ "НЕ предлагать"? Ты что, решил, что сделаешь это лучше чем Borland?

Во вторых, я ведь могу и setviewport + clearviewport предложить...

Просто мне нужно решить эту задачу без использованя Bar'a, и одновременно как можно проще.

Ну, так вместо Bar(x1, y1, x2, y2) делай так:

Rectangle(x1, y1, x2, y2);
SetViewPort(x1+1, y1+1, x2-1, y2-1, ClipOn);
ClearViewPort;

где x1, y1, x2, y2 - нужные тебе координаты

Это должно по идее дать тот же эффект.