關於訊息WM_GETTEXT的Message的問題？ |
|
答題得分者是：hagar
|
|
skurama
中階會員   發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
請問：
目前我繼承DBEdit元件，並加入了訊息WM_GETTEXT，如下
procedure WMGetText(var Message: TWMGetText); message WM_GETTEXT; procedure TYNTargetNoV3_.WMGetText(var Message: TWMGetText);
begin
if not (csdesigning in componentstate) then
if (trim(Message.text) = '') then begin
Exit;
end;
end; 可是會出現Unsafe type 'Text: PAnsiChar'的警告訊息，
請問是否有什麼方法消掉這個警告訊息，
我的意思是說正確的用法應該是如何，
我要做到的是，當我程式一執行時，在元件取得資料庫中的值時，
則做一些動作，如果取得的資料為空的就不做，
請問如何使用才不會有警告訊息。 ----------------
快滿一年程設師，
日日工作寫程式，
每買樂透眼框溼，
望能早成系分師。
----------------
------
---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ---------------- |
|
cmf
尊榮會員 發表：84 回覆：918 積分：1032 註冊：2002-06-26 發送簡訊給我 |
|
|
skurama
中階會員 發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
我改成如下 procedure TYNTargetNoV3_.WMGetText(var Message: TWMGetText);
var
MsgStr : string;
begin
MsgStr := StrPas(Message.text);
....
end. 可是還是會發生警告的訊息
Unsafe type 'Text: PAnsiChar'
我是用Delphi 7.0，是哪邊沒有寫到嗎？ ----------------
快滿一年程設師，
日日工作寫程式，
每買樂透眼框溼，
望能早成系分師。
----------------
------
---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ---------------- |
|
cmf
尊榮會員 發表：84 回覆：918 積分：1032 註冊：2002-06-26 發送簡訊給我 |
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
Project -> Options -> Compiler Message
最底下有個 Unsafe type 的核取方塊, 取消它
就不會有這個 warning 訊息了.
詳情參考這篇:
http://forum.vclxx.org/topic.php?TOPIC_ID=21475&FORUM_ID=8&CAT_ID=2&Topic_Title=%B1qDelphi5%A8%ECDelphi7%AA%BA%B8%EA%AE%C6%AB%AC%BAA%B0%DD%C3D%21%21&Forum_Title=Pascal ---
每個人都是一本書
|
|
cmf
尊榮會員 發表：84 回覆：918 積分：1032 註冊：2002-06-26 發送簡訊給我 |
|
|
skurama
中階會員 發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
發表時間：2003-05-06 18:53:34
IP:61.219.xxx.xxx 未訂閱
系統時間：2024-11-23 4:23:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |