从文件中取得坐标数据在PaintBox画图的问题？？？ ( 积分: 50 )

Z

zsm2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #1

文件格式：
x坐标值 y坐标值
1.00000 1.00000
2.00000 1.00000
1.50000 1.50000
....... .......

如何：将第1组坐标点连接第2组坐标点，第2组坐标点连接第3组坐标点，第3组坐标点连接第1组坐标点，在PaintBox中画出。坐标数据文件坐标组不确定组数。

 

Z

zsm2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #2

文件格式：
x坐标值 y坐标值
1.00000 1.00000
2.00000 1.00000
1.50000 1.50000
....... .......

如何：将第1组坐标点连接第2组坐标点，第2组坐标点连接第3组坐标点，第3组坐标点连接第1组坐标点，在PaintBox中画出。坐标数据文件坐标组不确定组数。

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
i, n: integer;
pts: array of TPoint;
begin
SetLength(pts, n); //n是点数
for i := 0 to n-1 do
begin
pts.X := X; //x坐标值
pts.Y := Y; //Y坐标值
end;
PaintBox1.Canvas.Polyline(Pts);
end;

 

Z

zsm2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-16

• #4

yostgxf 新年好，恭喜发财:
procedure TForm1.Button1Click(Sender: TObject);
var
i, n: integer;
pts: array of TPoint;
begin
SetLength(pts, n); //n是点数
for i := 0 to n-1 do
begin
pts.X := X; //x坐标值
pts.Y := Y; //Y坐标值
end;
PaintBox1.Canvas.Polyline(Pts);
end;

给一个读取坐标文件（文本格式），然后在PaintBox1里画出来的例子好吗？

 

S

Simon^o^

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-13

• #5

呵呵，我给你写个demo你看看可以不，可以不要忘记给分哦，已发出查收

 

Z

zsm2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-14

• #6

多人接受答案了。