請問一些方法指令問題 |
尚未結案
|
ggg
一般會員 發表:14 回覆:13 積分:5 註冊:2005-06-26 發送簡訊給我 |
|
kgt
高階會員 發表:17 回覆:308 積分:165 註冊:2002-03-13 發送簡訊給我 |
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; |
way888
初階會員 發表:32 回覆:76 積分:36 註冊:2005-05-31 發送簡訊給我 |
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
|
ggg
一般會員 發表:14 回覆:13 積分:5 註冊:2005-06-26 發送簡訊給我 |
首先要非常感謝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上
做法應該是和問題三.一樣
我再試看看兩位大大的做法
================================
新手上路,問題多多,囉囉唆唆,請多包涵
|
kgt
高階會員 發表:17 回覆:308 積分:165 註冊:2002-03-13 發送簡訊給我 |
|
ggg
一般會員 發表:14 回覆:13 積分:5 註冊:2005-06-26 發送簡訊給我 |
關於第一個問題
我遇到一個瓶頸,那就是我在表單中放入DBChart元件
不幸的是DBChart指定了Table1元件
所以一直無法操作如kgt大大所寫的
form1.Table1.Active := False;
form1.Table1.EmptyTable;
form1.Table1.Active := True;
不知要如何克服?(我試了很久< >) 還有我有多問幾個問題< >在主題中 ================================
新手上路,問題多多,囉囉唆唆,請多包涵
|
kgt
高階會員 發表:17 回覆:308 積分:165 註冊:2002-03-13 發送簡訊給我 |
|
ggg
一般會員 發表:14 回覆:13 積分:5 註冊:2005-06-26 發送簡訊給我 |
|
kgt
高階會員 發表:17 回覆:308 積分:165 註冊:2002-03-13 發送簡訊給我 |
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.另建議您將其他問題另外成立主題,因為第一次看到這麼多問題的人, 且又有能力解的人應不多吧,那會讓您找答案會等很久喔。 |
ggg
一般會員 發表:14 回覆:13 積分:5 註冊:2005-06-26 發送簡訊給我 |
|
kgt
高階會員 發表:17 回覆:308 積分:165 註冊:2002-03-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |