本人一直使用c++ buider,並開發了乙個"**商關係管理"的三層應用系統.
現公司要求使用delphi,沒辦法只有重新學習pascal語言.
便記錄學習的過程,那就叫delphi學習手記吧.
<1> 好象inherit form不行,如果想覆蓋上邊的方法,重寫事件或函式,竟然報錯,不懂先,是不是inherit不同.
經過測試,是可以的,而且可以新增你的方法;
procedure tform2.button3click(sender: tobject);
begin
inherited;
showmessage('a');
end;
<2>abstract methods (抽象方法)
抽象方法是虛方法或動態方法,並且在宣告它的類中沒有實現,而是由它的派生類中實現.
procedure dosomething;virtual;abstract
<3> 指定建立何種控制項: 寫給函式
如下:function tform1.createcontrol(controlclass:tcontrolclass;
const controlname:string;x,y,w,h:integer):tcontrol;
begin
result:=controlclass.create(self);
with result do
begin
parent:=self;
name:=controlname;
setbounds(x,y,w,h);
visible:=true;
end;
end;
呼叫:
createcontrol(tpagecontrol,'pagecontrol1',10,10,100,20);
<4> object is class 用來驗證乙個執行的控制項的實際型別.
if activecontrol is tedit then tedit(activecontrol).selectall;
<5> object as class as運算子執行受檢查的型別轉換;
列:
procedure tform1.button2click(sender: tobject);
begin
with sender as tbutton do
begin
caption:='&ok';
onclick:=button1click;
end;
end;
或者:
(sender as tbutton).caption:='&ok';
(sender as tbutton).onclick:=button1click;
Delphi學習手記 ASCII碼對照表
ascii碼對照表 bin dec hex 縮寫 字元 解釋 0000 0000000 nul null 空字元 0000 0001101 soh start of handing 標題開始 0000 0010202 stx start of text 正文開始 0000 0011303 etx e...
Delphi2006試用手記
今天旁邊宿舍的傢伙終於給我吧borland studio 2006整套下下來了 5cd哪 足足刻了我5張盤 不過 個人感覺這個產品應該是borland的終結產品了 刻下來以後紀念用也行啊 花了10分鐘左右裝上了borland studio 2006 裝了win32版和.net版 其他產品還有c bu...
python學習手記
1.list由小到大排序用list.sort 由大到小排序用list.sort reverse true 2.list逆序用list.reverse 3.list 0 代表list中的第乙個元素，中括號一般用於表示元素位置，表示元素 4.dict中沒有排序的說法，keys用於表示位置，應用時用 6....