11.10.2008, 14:59
|
|
Sir Richard Abramson
|
|
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
|
|
Ну в общем как обычно пришлось все делать самому, вот решение
Код:
For x:=1 to 20 do
for y:=1 to 20 do
begin
MoveToXYZ(x-1,y,Vals[X-1,Y]);
LineToXYZ(x,y,vals[x,y],clGray);
MoveToXYZ(x,y-1,Vals[x,y-1]);
LineToXYZ(x,y,vals[x,y],clGray);
end;
|