GPSロガーの軌跡をイメージに描画したい (ID:41399)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Novさんありがとうございます、無事動作しました。 きちんと道程が出ました。 自分のケアレスミスというか、そもそものアルゴリズムが間違ってたんですね＾＾； 以下が解決したソースです。 それではありがとうございましたｍ（＿＿）ｍ。 procedure TForm1.Button2Click(Sender: TObject); var i,x,y:integer; begin i := 1; listbox1.Items.Clear; image1.Canvas.MoveTo(100,100); image1.Canvas.LineTo(100,100); while i < stringgrid1.RowCount do begin x := 100+StrToInt(FloatToStr(StrToFloat(StringGrid1.Cells[3,i])*1000000 - StrToFloat(StringGrid1.Cells[3,1])*1000000)); y := 100+StrToInt(FloatToStr(StrToFloat(StringGrid1.Cells[5,i])*1000000 - StrToFloat(StringGrid1.Cells[5,1])*1000000)); image1.Canvas.LineTo(x,y); i := i +1; end; end;