掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.