請問要如何改寫成BCB語法? |
尚未結案
|
kenlee
一般會員 ![]() ![]() 發表:10 回覆:8 積分:3 註冊:2004-04-29 發送簡訊給我 |
以下是由論壇中的某篇文章中所轉貼的,但小弟我不熟悉Delphi語法,請問能幫助轉換成BCB語法嗎?感謝~
var i: word; c: TInplaceEdit; begin for i := 0 to DBGrid1.ControlCount -1 do begin if DBGrid1.Controls[i] is TInPlaceEdit then begin c := DBGrid1.Controls[i] as TInPlaceEdit; Lable1.Caption := c.Text; Break; end; end; end;發表人 - taishyang 於 2005/02/22 14:31:04 |
Homi
一般會員 ![]() ![]() 發表:19 回覆:23 積分:8 註冊:2003-07-26 發送簡訊給我 |
引言: 以下是由論壇中的某篇文章中所轉貼的,但小弟我不熟悉Delphi語法,請問能幫助轉換成BCB語法嗎?感謝~您好var i: word; c: TInplaceEdit; begin for i := 0 to DBGrid1.ControlCount -1 do begin if DBGrid1.Controls[i] is TInPlaceEdit then begin c := DBGrid1.Controls[i] as TInPlaceEdit; Lable1.Caption := c.Text; Break; end; end; end;發表人 - taishyang 於 2005/02/22 14:31:04 unsigned short i; TInPlaceEdit *c; for(i=0;i<=DBGrid1->ControlCount -1;i ){ if(DBGrid1->Control[i]==TInplaceEdit){ c=(TInplaceEdit*)DBGrid1->Control[i]; Label1->Caption=c->Text; break; } } 不知對不對,參考看看 |
kenlee
一般會員 ![]() ![]() 發表:10 回覆:8 積分:3 註冊:2004-04-29 發送簡訊給我 |
|
taishyang
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
您好:
這樣編譯可以過
unsigned short i; TInplaceEdit *c; for(i=0;i<=DBGrid1->ControlCount -1;i ) { if(DBGrid1->Controls[i]->ClassNameIs("TInPlaceEdit") ) { c=(TInplaceEdit*)DBGrid1->Controls[i]; Label1->Caption=c->Text; break; } }順心 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |