如可將點繪成線？ |
|
答題得分者是：李國維
|
|
enu
中階會員   發表：36 回覆：93 積分：55 註冊：2003-10-22 發送簡訊給我 |
各位先進好，請教一個問題，小弟現在從資料庫中將x、y座標取出了，可是要將它連線起來卻不知如何下手了，可否幫忙看看！感謝！ while(ADOQuery1->Eof != true & ADOQuery2->Eof != true)
{
sxItem = "";
syItem="";
for(int i=0; i<=(ADOQuery1->Fields->Count-1); i )
{
sxItem = sxItem ADOQuery1->Fields->Fields[i]->AsString;
syItem = syItem ADOQuery2->Fields->Fields[i]->AsString;
sx=StrToInt(sxItem);
sy=StrToInt(syItem);
Form1->Canvas->LineTo(sx,sy);//這裡雖可直接畫線，可是因為沒有MoveTo的原始點，所以會有錯誤產生。
}
ADOQuery1->Next();
ADOQuery2->Next();
} 可否請教先進，要如何修改才可以將整個x、y座標繪出？感恩！
（ps.之前曾在資料庫程式設計討論區發問，應該不是資料庫的問題，所以沒人回應，在此請教了！）
|
|
李國維
高階會員 發表：42 回覆：287 積分：235 註冊：2003-02-07 發送簡訊給我 |
enu:
bool bFirst = false;
while(ADOQuery1->Eof != true & ADOQuery2->Eof != true)
{
sxItem = "";
syItem="";
for(int i=0; i<=(ADOQuery1->Fields->Count-1); i )
{
sxItem = sxItem ADOQuery1->Fields->Fields[i]->AsString;
syItem = syItem ADOQuery2->Fields->Fields[i]->AsString;
sx=StrToInt(sxItem);
sy=StrToInt(syItem);
if (bFirst == false)
{
Form1->Canvas->MoveTo(sx,sy);
bFirst = true;
}
else
{
Form1->Canvas->LineTo(sx,sy);//這裡雖可直接畫線，可是因為沒有MoveTo的原始點，所以會有錯誤產生。
Form1->Canvas->MoveTo(sx,sy);
}
}
ADOQuery1->Next();
ADOQuery2->Next();
}
不知道這是不是你所要的需求
|
|
enu
中階會員 發表：36 回覆：93 積分：55 註冊：2003-10-22 發送簡訊給我 |
發表時間：2005-01-30 17:06:07
IP:218.165.xxx.xxx 未訂閱
系統時間：2024-05-05 16:15:29
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |