我是參考這個討論:http://delphi.ktop.com.tw/topic.php?TOPIC_ID=67137    在執行第1,2組程式安裝都ok,但第3組程式在compile或install都會出現"該記憶體不能為read"的問題,程式上指在第37行有問題,如下圖所示: 按"確定"會出現一堆警告字串,按"取消"則會跳到看不懂得偵錯碼,我是用BCB5.0,所以版本上沒有問題,原始程式也沒動過;是不是要設路徑,或是其它設定要更改? 請指教,謝謝~ 寒窗苦讀十年書；只待今朝狀元時！~~ ︵ / / ︵ ( ∩ ∩ ) ○ ︶ ○

------
Keni Lin

我有測試過BCB6.0都ok.... 可能....看看有沒有人有BCB5.0的... 是否能測試一下..^^ =========== 有興趣,就能進步 ===========

我找了一下問題,是缺少"AdThread.dcu"這一個檔案,應該要在C:\Abakus\CB5的子目錄底下才對,用檔案搜尋都找不到;重新安裝後還是一樣,因為我沒有BCB6,所以沒辦法測另一組BCB6程式. 在此請問 > 寒窗苦讀十年書；只待今朝狀元時！~~ ︵ / / ︵ ( ∩ ∩ ) ○ ︶ ○

------
Keni Lin

之後才發現Abakus VCL已經安裝到BCB的工具列裡面,少第三組似乎沒有影響,但現在不知道麼控制它!    請教一下如何控制AbLED的VLC元件,不曉得怎麼讓它點亮或暗? 因為沒有實際範例,所以我用了 AbDBLED1->Enabled = true; 和 AbDBLED1->Visible = true; 但都沒有反應,有人知道如何控制它嗎?如下圖所示: 感恩~~ 寒窗苦讀十年書；只待今朝狀元時！~~ ︵ / / ︵ ( ∩ ∩ ) ○ ︶ ○

------
Keni Lin

HIHI~~KENI_LIN 拉一個LED及Button在Form上... 並加入下面的程式... 應該可以切換LED的明滅...^^

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AbLED1->Checked = !AbLED1->Checked;
}

=========== 有興趣,就能進步 ===========

謝謝fnk兄的指教,已經可以控制AbLED1明滅了,我試了另一個類似捲軸 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=21199190&CC=474110"> 再請教這一個物件怎麼控制使用及變數設定?以下是我ScrollBar1的控制方法: ====================================================================== (1)先設定變數 int level; (2)建立ScrollBar1物件,並顯示數字到Label12. void __fastcall TFMain::ScrollBar1Change(TObject *Sender) { Label12->Caption = ScrollBar1->Position; } (3)最後調整的數值,可導入到level變數中,提供其它程式讀取使用 level=int(ScrollBar1->Position); ====================================================================== 我把ScrollBar1換成AbGearDial1後,如下所示: void __fastcall TFMain::AbGearDial1Click(TObject *Sender) { Label12->Caption = AbGearDial1->Position; } ====================================================================== 結果會有錯誤訊息:'Position' is not a member of 'TAbGearDial'產生;不知道要怎麼做AbGearDial1的調整控制以及怎麼將數值捉出來? 還有這一個Abakus所提供的VCL,有沒有技術網站或是參考書有介紹指令使用,因為照這樣每一個物件玩一次,可能要發表好幾個問題主題才問的完;謝謝指教嘍~~ 寒窗苦讀十年書；只待今朝狀元時！~~ ︵ / / ︵ ( ∩ ∩ ) ○ ︶ ○

------
Keni Lin

HiHi~~KENI_LIN    你可以在Form上拉一個Label和一個AbGearDial...再加入下面的程式..

void __fastcall TForm1::AbGearDial1ValueChange(TObject *Sender)
{
Label1->Caption = AbGearDial1->Value;
}

你可以在Abakus的Folder下...找到一個Help檔... 若要查LED -->鍵入TAbLED 若要查GearDial -->鍵入TAbGearDial 如下圖所示... =========== 有興趣,就能進步 ===========

fnk兄,謝謝你的回覆,我大概試出來,但是...怎麼出現浮點數?有辦法設為整數嗎?而且最大只能調到 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=21206702&CC=474278"> 感恩~ 寒窗苦讀十年書；只待今朝狀元時！~~ ︵ / / ︵ ( ∩ ∩ ) ○ ︶ ○

------
Keni Lin

HIHI~~KENI_LIN 可以加上int, 迫使其做型態的強制轉換... Label1->Caption = (int)AbGearDial1->Value; 至於如何設定最大值... 我翻過了整個Help(感覺他的Help寫得很簡單>"<)...好像沒有寫也... 可能你再去Check看看囉... 若有的話...再跟我說說..^^ =========== 有興趣,就能進步 ===========

謝謝fnk兄的指教,我加入int後就可以顯示成整數了;但還有一堆問題,如AbDBMeter,AbDBVSlider,AbDBTank(看似能量表的東西)如何使用等等...    因為我沒有載到Abakus的Folder...Help檔... 暫時我先自己玩看看,有問題的話在麻煩你指教!    謝謝嘍,又學了好幾招~~ 寒窗苦讀十年書；只待今朝狀元時！~~ ︵ / / ︵ ( ∩ ∩ ) ○ ︶ ○

------
Keni Lin