如何將平面上每一個點的座標存入陣列中 我想把每個點ㄉX,Y座標存入在陣列中 我寫在ImageMousedown底下 可是每次都是存入最後一個點的座標 不知應該要如何才可以把我用滑鼠點一下的點座標都儲存起來... 拜託各位大大幫我解答..... 謝謝

void __fastcall Tmain::image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
void __fastcall Tmain::image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)

這兩個事件中的XY就是你要的點座標，直接存起來就好囉 不過記得用陣列存，不然都只會存到最後的值 學習中請大家多多指導呦~~ ☆星霧☆（Mineg Chien WU）

我是用陣列存阿 不過一直都是存到最後一個座標耶 我ㄉ程式碼是這樣:                  void __fastcall TForm1::Image1MouseDown(TObject *Sender,TMouseButton Button, TShiftState Shift, int X, int Y) {    Image1->Canvas->Pen->Width=5;    Image1->Canvas->Pen->Style=psDashDot;    Image1->Canvas->Pen->Color=clRed;    for(int i=0;i<2;i ) { if(Shift.Contains(ssLeft)) { Image1->Canvas->MoveTo(X,Y); Image1->Canvas->LineTo(X,Y); a[i].x=X; a[i].y=Y; Label1->Caption="x=" IntToStr(a[i].x) " y=" IntToStr(a[i].y); } } } 結果一直都是存到最後一個座標耶 一直不懂我哪裡錯ㄌ 麻煩指教.....謝謝

您好：    參考這個小範例  

 
#include 
#include 
#include "Unit1.h"
#pragma hdrstop
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
FILE *fp ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  fp = fopen("temp.txt","w") ;
  fclose(fp) ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  fp = fopen("temp.txt","a") ;
  fprintf(fp,"\n( %d , %d )",X,Y) ;
  fclose(fp) ;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  char fstr[20] ;
  int i = 3 ;
    if ((fp=fopen("temp.txt","r"))!=NULL)
      while(!feof(fp))
       {
         fgets(fstr,20,fp) ;
         Canvas->TextOut(3*20,i*20,fstr) ;
         i  ;
       }
  fclose(fp) ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
  DeleteFile("temp.txt") ;
}
//---------------------------------------------------------------------------

所有的點都存到文字檔中，於程式結束會將文字檔給刪掉 至於您想存到陣列中，則就是在打開文字檔 看文字檔內有幾行(size)，以 new 的方式配置陣列大小 再一個一個寫回 int[size] 中 或者就直接把 while 迴圈看成在輸出陣列值 當然你也可以指定要輸出是哪幾行 稍微修改一下Button1內的程式就可以了 發表人 - 流 於

有比較簡略ㄉ方法嗎?? 因那只是我所要寫ㄉ一部份而已 感謝各位大大.....

您好：    那試試下面的範例  

 
//---------------------------------------------------------------------------
#include 
#pragma hdrstop
#include 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x[10] , y[10] , i=0 ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  if (i<11)
    {
      x[i] = X , y[i] = Y ;
      i   ;
    }
}
//---------------------------------------------------------------------------    這個方法有個限制，限點於 10 點之內
要驗證對不對就拉幾個 Edit 去測試
Edit1->Text = IntToStr(x[0])   " , "   IntToStr(x[0]) ;
  ．  ．  ．  ．
  ．  ．  ．  ．
  ．  ．  ．  ． 
Edit9->Text = IntToStr(x[9])   " , "   IntToStr(x[9]) ;

祝順心

問題解決ㄌ.....謝謝        總覺得電腦怪怪的.....一下不行....一下又行了.....

您好：    補充一件事，如果您單純的只想畫圖，以下的範例就夠用了 

 
#include 
#include "Unit1.h"
#pragma hdrstop
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int a = 1 ;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
if (a==1)
  {
    Canvas->MoveTo(X,Y) ;
    a = 0 ;
  }
else Canvas->LineTo(X,Y) ;
}

祝順心