請問:    1. 要如何將TTable的資料一次清空?    2. 是否可以讓使用者自己輸入程式碼的程式?    例如:使用者在edit1元件上輸入一段程式         就像按計算機一樣的輸入 2+3*5-7         之後再按Btn元件可以將計算結果輸出在edit2上(顯示為10)    3. 要如何將Form1的Edit1元件的字串    在Form2的Edit1元件顯示?    (用uses,但我不會用)     ================================ 新手上路,問題多多,囉囉唆唆,請多包涵

1.  form1.Table1.EmptyTable; 2.  這是資料結構演算法的問題，只要有演算法，當然可以實作出來。 3.在Form2的unit2中之片段程式如下:    

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form2: TForm2;    implementation

uses Unit1;    {$R *.dfm}    procedure TForm2.Button1Click(Sender: TObject);
begin
  form2.Edit1.Text := form1.Edit1.Text;
end;

1. 要如何將TTable的資料一次清空? Re:重新下0筆資料符合的SQL指令。 2. 是否可以讓使用者自己輸入程式碼的程式? 例如:使用者在edit1元件上輸入一段程式 就像按計算機一樣的輸入 2 3*5-7 之後再按Btn元件可以將計算結果輸出在edit2上(顯示為10) RE：當然可以，只是要花時間撰寫程式碼，例如 2 3*5-7 在edit1元件是Text，先要將此字串解析成4個數值及3個運算元後，再做數學運算，再把結果輸出到edit2上。 3. 要如何將Form1的Edit1元件的字串 在Form2的Edit1元件顯示? (用uses,但我不會用) RE：Form1可以uses Form2，Form2也可以uses Form1，端看你的需求， 例如Form1的.pas內定是Unit1.pas，Form2的.pas內定是Unit2.pas， 你可以在Unit2內加入uses Unit1，然後在Form1裡某個事件中加入Form2.Edit1.Text:=Form1.Edit1.Text既可。 發表人 - way888 於 2005/12/02 22:33:20

首先要非常感謝kgt和way888兩位大大的回應 這些問題一直很想問,可是前陣子一直上不了此站 關於第一個問題我用了很久 可是不知道為什麼會一直有錯誤訊息產生,如下圖 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=25719849&CC=575211"> 其程式碼為: procedure TForm1.Button1Click(Sender: TObject); begin Table1.EmptyTable; end; 另外我還試了其他的: procedure TForm1.Button1Click(Sender: TObject); begin Table1.Active := false; Table1.Exclusive := true; Table1.EmptyTable; Table1.Active := true; end; 結果跟上面一樣 不知道哪裡錯了,請大大們幫我看一下 第二個問題似乎有點麻煩的感覺 會不會很難啊?? 第三個問題 其實我是要把Form1的Edit字串新增到Form2的table上 做法應該是和問題三.一樣 我再試看看兩位大大的做法 ================================ 新手上路,問題多多,囉囉唆唆,請多包涵

1.因要清空時，若有物件在使用中，不允許此操作 procedure TForm1.Button1Click(Sender: TObject); begin form1.Table1.Active := False; form1.Table1.EmptyTable; form1.Table1.Active := True; end; 2.此演算法應會困難一點，需考慮 -*/及()的運算順序 3.有問題再討論囉

關於第一個問題 我遇到一個瓶頸，那就是我在表單中放入DBChart元件 不幸的是DBChart指定了Table1元件 所以一直無法操作如kgt大大所寫的 form1.Table1.Active := False; form1.Table1.EmptyTable; form1.Table1.Active := True; 不知要如何克服?(我試了很久< >) 還有我有多問幾個問題< >在主題中 ================================ 新手上路,問題多多,囉囉唆唆,請多包涵

不幸的是DBChart指定了Table1元件-->請問您是如何指定的？ 是程式碼或屬性設定呢？我剛在DBChart中找不到指定點。

我在TDBChart點兩下進入series > Data Source > Function下拉有個Dataset 之後中間會有個下拉出現TTable1 我剛剛又發現一個新問題 ================================ 新手上路,問題多多,囉囉唆唆,請多包涵

hi ggg: 請測試一下:

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.DBChart1.Series[1].DataSource := nil;
  form1.Table1.Active := False;
  form1.Table1.EmptyTable;
  form1.Table1.Active := True;
  form1.DBChart1.Series[1].DataSource := form1.Table1;
end;

----------------------------------------- ps.另建議您將其他問題另外成立主題，因為第一次看到這麼多問題的人， 且又有能力解的人應不多吧，那會讓您找答案會等很久喔。

真的非常感謝kgt大大一路相挺 和謝謝提醒我的建議,我等一下再另闢主題    我剛剛測試了,還是不行耶 跟之前的情形一樣    最後還是不忘感恩 ================================ 新手上路,問題多多,囉囉唆唆,請多包涵

hi ggg日安: 我這二天測試的結果，也還是有問題，可能再等等其他大大的建議囉。