[pharmestik]

Здравствуйте! Есть двумерный массив координат объектов на Канве.

Хочу представить заполнение канвы графически.

begin
      inc(cht);
      crdt[cht,1]:=Panel5.Left;
      crdt[cht,2]:=Panel5.Top;

Чтобы при совпадении чисел по горизонтали, шло сложение по вертикали.
И результат построение кривой. Может кто подскажет что-нибудь похожее.

[Bargest]

Пройти по массиву двумя циклами, если есть совпадения - сложить.

Код:

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

i:=0; while i<cht-1 do begin  j:=i+1;  while j<cht do  begin   if crdt[i,1]=crdt[j,1] then   begin     crdt[i,2]:=crdt[i,2]+crdt[j,2]     for k:=j to cht-1 do     begin       crdt[k,1]:=crdt[k+1,1];       crdt[k,2]:=crdt[k+1,2];     end;     dec(cht);     dec(j);   end;   inc(j);  end;  inc(i); end;

А дальше рисуешь график по массиву значений через LineTo.

Offtop: Представляю, какая жуть получится...

[pharmestik]

Что-то не получается. как это сделать практически?
Canvas.MoveTo(0,0);
Canvas.LineTo(crdt[k,1],crdt[k,2]);

ReleaseDC(0, DC);

[Bargest]

ReleaseDC тут ни при чем.

Код:

1 2 3

Canvas.MoveTo(crgt[0,1],crdt[0,2]); for i:=1 to cht-1 do   Canvas.LineTo(crgt[i,1],crdt[i,2]);

[angvelem]

А что удаляется строкой ReleaseDC(0, DC);?
p.s. ух, проспал.