線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1256
推到 Plurk!
推到 Facebook!

請問bcb如何存入和取出在其它TForm中的變數

尚未結案
js80875
一般會員


發表:2
回覆:2
積分:0
註冊:2008-12-17

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-06-16 09:34:19 IP:125.231.xxx.xxx 訂閱
請教各位大大
這是將一個參數傳入另一個TForm並下去執行的程式碼
[code cpp]
void __fastcall TForm1::input_okClick(TObject *Sender)
{
myprocedure(1);
}
void __fastcall TForm1::myprocedure(int x)
{
s.printf("%2.2f",x);
printf("%2.2f",x);
info1->Lines->Add(s);
}
[/code]
我想知道如何能將值存在另一個TForm內,
並且在需要的時候去將另一個TForm的值取過來,
另外一個TForm中是否可取得另一個TForm內AnsiString的值

不知在一個TForm中有哪些暫存的方式可用,
讓另一個TForm可以來取得此TForm暫存的值
[code cpp]
void __fastcall TForm1::input1Click(TObject *Sender)
{
存入myprocedure的x
}
void __fastcall TForm1::input2Click(TObject *Sender)
{
取得myprocedure的x
}
void __fastcall TForm1::myprocedure(int x)
{
int x;
AnsiString x;
}
[/code]
感謝解惑
編輯記錄
js80875 重新編輯於 2009-06-16 09:38:12, 註解 無‧
js80875 重新編輯於 2009-06-16 09:39:46, 註解 無‧
taishyang 重新編輯於 2009-06-16 11:20:09, 註解 拿掉[急字]‧
js80875 重新編輯於 2009-06-16 14:30:25, 註解 無‧
js80875 重新編輯於 2009-06-16 14:33:50, 註解 無‧
carstyc
資深會員


發表:16
回覆:254
積分:329
註冊:2003-07-18

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-06-19 23:09:51 IP:219.84.xxx.xxx 訂閱
你好

你的問題應該是你對 BCB 的物件導向觀念或用法還不熟。

其實 BCB 我也不熟,我只能大概跟你講一下

其實在BCB的世界中,到處都是物件,每個按鈕,每個文字輸入盒,每個你看的見的東西幾乎都是物件,包含TForm1 整個也是一個物件,只是這個物件中還塞了很多其它物件。

而物件導向最基礎的觀念,就是物件的變數可分為三種,public 、 protected 、 private,至少三種類別有啥不同,你就自己做做功課吧,所有講解物件導向概念的文章應該都會做說明。

所以你所需要的只是在你的 Form1.h 中,找到 public 區段,把你要的AnsiString 變數加在這裡區段內。

如此只要有 include 這個 Form1.h 的 TForm程式,都能直接對 TForm1 的 public 變數做存取了。




===================引 用 js80875 文 章===================
請教各位大大
這是將一個參數傳入另一個TForm並下去執行的程式碼
[code cpp]
void __fastcall TForm1::input_okClick(TObject *Sender)
{
myprocedure(1);
}
void __fastcall TForm1::myprocedure(int x)
{
s.printf("%2.2f",x);
printf("%2.2f",x);
info1->Lines->Add(s);
}
[/code]
我想知道如何能將值存在另一個TForm內,
並且在需要的時候去將另一個TForm的值取過來,
另外一個TForm中是否可取得另一個TForm內AnsiString的值

不知在一個TForm中有哪些暫存的方式可用,
讓另一個TForm可以來取得此TForm暫存的值
[code cpp]
void __fastcall TForm1::input1Click(TObject *Sender)
{
存入myprocedure的x
}
void __fastcall TForm1::input2Click(TObject *Sender)
{
取得myprocedure的x
}
void __fastcall TForm1::myprocedure(int x)
{
int x;
AnsiString x;
}
[/code]
感謝解惑
編輯記錄
carstyc 重新編輯於 2009-06-20 00:28:34, 註解 無‧
系統時間:2017-12-16 15:23:56
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!