Построить треугольники из файла

[JaySee]

Вот у меня есть файл в котором каждая строка это три точки-вершины треуголька. Как мне оттуда их вытащить и нарисовать в Delphi ?

Вот пример содержимого

0 0 3 3 0 9
0 9 6 9 3 3
0 0 6 0 3 3
3 3 6 6 6 9
3 3 6 0 6 6

[Valio]

Как мне оттуда их вытащить

Read(x1, y1, x2, y2, x3, y3);

нарисовать в Delphi

Canvas, MoveTo, LineTo + Google + F1.

[Serge_Bliznykov]

можно так попробовать:

procedure TForm1.ChangeCanvasBrushStyle();
begin
  with Canvas.Brush do
  begin
    if   Style = bsDiagCross then Style := bsSolid
   else if Style = bsSolid then Style := bsClear
   else if Style = bsClear then Style := bsHorizontal
   else if Style = bsHorizontal then Style := bsVertical
   else if Style = bsVertical then Style := bsFDiagonal
   else if Style = bsFDiagonal then Style := bsBDiagonal
   else if Style = bsBDiagonal then Style := bsCross
   else if Style = bsCross then Style := bsDiagCross;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
Const
  DeltaX = 40;
  DeltaY = 40;
var
  F : TextFile;
  i : integer;
  Treug : array[1..4]of TPoint;
begin
  AssignFile(F, 'C:\DataTreug.txt');
  Reset(F);
  i := 1;
  while Not EOF(F) do begin
    Read(F, Treug[1].X, Treug[1].Y);
    Read(F, Treug[2].X, Treug[2].Y);
    Read(F, Treug[3].X, Treug[3].Y);
    Readln(F);
    Treug[4] := Treug[1];

    // откорректируем координаты, умножив их на Delta
    for i:=1 to 4 do begin
      Treug[i].X := Treug[i].X * DeltaX;
      Treug[i].Y := Treug[i].Y * DeltaY;
    end;

    ChangeCanvasBrushStyle();
    Canvas.Polygon(treug);
  end;
  CloseFile(F);
end;

[JaySee]

Serge_Bliznykov, большое спасибо. То что нужно!