5xHs的个人资料 - RAT

5xHs 5xHs

关注数: 8 粉丝数: 48 发帖数: 2,116 关注贴吧数: 27

哇老头也是吧主了这么牛 RT

先在 DELPHI用这越来越难受限制太多

Delphi 记录数组指针怎么搞.. RT

盼望小半个月没更难受啊

现在传奇吧可真水！

请问秦皇岛数谷基地在哪？ RT

你妹终于出吧主拉恭喜恭喜

谁能告诉我东戴河能不能装光纤多钱知道说下 RT(歪嘴笑)

谁能帮我看看代码啊 VS 2008 编译不过去谢谢了 #include<iostream.h> class CShape { public: virtual void display () {cout<<"Shape\n";} }; class CEllipse : public CShape { public: virtual void display () {cout<<"Ellipe\n";} }; class CCirle : public CEllipe { public: virtual void display () {cout<<"Circle\n";} }; class CTrangle : public CShape { public: virtual void display () {cout<<"Trangle\n";} }; class CRect : public CShape { public: virtual void display () {cout<<"Rectangle\n";} }; class CSquare : public CRect { public: virtual void display () {cout<<"Square\n";} }; void main () { CShape aShape; CEllipse aEllipse; CCircle aCircle; CTriangle aTriangle; CRect aRect; CSquare aSquare; CShape *pShape[6] = { &aShape, &aEllipse, &aCircle, &aTriangle, &aRect, &aSquare }; for (int i = 0; i<6; i++) { pShape[i]->display(); } }

你们还活这么我还活着！哇 (坏笑)

海港区华昌物流急谢谢

我看 @北堂羽羽等级称号应该改下噢这不是娱乐贴吧

吧里妹子真多

下雨了收衣服了天好黑进被窝了

获取一个函数的地址！在用汇编调用嘿嘿谁能写出来 RT

就执行一次为什么？ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Timer1: TTimer; Button2: TButton; Button3: TButton; Button4: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; NewClass = Class private Countx:Integer; function GetnCount: Integer; public property nCount:Integer read GetnCount; //procedure hCount(); end; var Form1: TForm1; implementation {$R *.dfm} var Newx : NewClass; procedure TForm1.FormCreate(Sender: TObject); begin end; { NewClass } function NewClass.GetnCount: Integer; begin Result :=Countx + 10; end; procedure TForm1.Button1Click(Sender: TObject); begin Newx :=NewClass.Create; with form1 do begin if Newx = nil then MessageBox(handle,'类创建失败！','提示',MB_OK) else MessageBox(handle,'成功建立类！','提示',MB_OK); end; end; procedure TForm1.Button2Click(Sender: TObject); begin Newx.Free; end; procedure TForm1.Button3Click(Sender: TObject); begin with Timer1 do begin Enabled :=Not Enabled; case Integer(Enabled) of 0:Button3.Caption:='开始'; 1:Button3.Caption:='停止'; end; end; end; procedure TForm1.Button4Click(Sender: TObject); begin Form1.Close; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Form1.Caption:=IntToStr(Newx.nCount); end; end.

个个都说自己是爱国小青年！乌岛大片谁也没少看我不爱国！但是我不会让自己的国家受委屈

这个谁知道？ Newarray = array [0..100] of integer; array1 = array [1..20] of Newarray; array1 占多少字节呢

如果把开服变成一种保存传奇本质！也就是钱

难到跟 4代打的哪个阿飞已经死了？

4级终于破了

哈！亲　　今天你上网了么

亲！我要的是经验

类类类真累！

早安东戴河！

求解弄一夜也没弄明白关于 DFM窗口汇编 #$83#$BE#$F6#$9E#$BD#$84#$91#$A1#$BA#$AA#$DC#$C9#$BC#$96#$A5#$BE#$93#$82#$D7#$AA + #$F6#$B5#$B1#$A7#$D4#$0C#$B0#$AD#$EE#$BF#$A7#$D1#$A9#$EB#$E7#$C7#$DE#$A4#$BF#$D0 + #$C9#$ED#$B6#$E6#$DF#$B9#$B0#$BB#$A3#$ED#$D4#$AC#$BD#$93#$B6#$A3#$A3#$87#$DF#$C0 + #$BC#$D6#$91#$A1#$BA#$AA#$DC#$C9#$BF#$93#$B8#$BF#$B8#$9C#$B7#$A7#$D9#$BC#$95#$A7 + #$B9#$A8#$D1#$CD#$DF#$DC#$91#$BC#$B9#$9A#$9E#$ED#$D2#$B1#$A5#$A0#$B2#$9A#$B7#$A1 + #$FE#$95#$91#$92#$82#$A2#$E4#$F1#$F9#$98#$96#$81#$84#$AB#$E4#$A4#$FC#$BF#$B9#$A7 + #$F9#$AD#$DF#$C2#$D5#$A2#$D0#$DF#$B4#$82#$E7#$C7#$D4#$B4#$B8#$A4#$83#$8B#$C8#$DA + #$B1#$96#$B8#$BD#$A3#$C0#$F8#$CB#$D3#$B7#$BF#$A7#$D5#$1A#$B9#$E8#$D5#$BE#$A3#$FD + #$99#$8F#$DD#$CB#$A8#$D2#$D7#$D3#$D7#$65#$EB#$FD#$F5#$DA#$91#$BC#$B9#$9A#$9E#$FD + #$CE#$A9#$BB#$B6#$DC#$EE#$BE#$E1#$D6#$B4#$94#$A1#$B2#$8F#$C4#$CB#$F5#$A2#$B3#$B6 + #$A5#$E6#$B8#$E1#$D4#$93#$A5#$B6#$B6#$9A#$D5#$A9#$B0#$96#$B8#$A1#$BA#$AD#$C2#$CB + 这个是一个动态窗口的DFM 我想知道这是怎么形成的 procedure FastCode(var Str: string); const XorKey: array[0..7] of Byte = ($D7, $EE, $B0, $AE, $BA, $D0, $D7, $D3); var I, J: Integer; P: PByte; begin P := @Str[1]; J := 0; for I := 1 to Length(Str) do begin P^ := P^ xor XorKey[J]; Inc(P); J := (J + 1) mod 8; end; end; 解密的代码我解密来但是不会还原！ - 高手哈谢谢你们了

钩子问题类型不匹配我是没招了 function HookProc(nCode: Integer;wParam:WPARAM; lParam: CWPSTRUCT):LRESULT; stdcall; begin if not (nCode = 0) then begin if lparam.message = messages.WM_LBUTTONDOWN then showmessage('sadasda'); end; Result := CallNextHookEx(GameHookHandle, nCode, wParam, lParam); end;

七哥明天我去秦皇岛！ @七县区

今天去海边的虫子说我抽风。。。。

IP 被封了！是　度娘不喜欢我了还是　管理封的　我不想说什么　　就想知道　为什么封我？敢做敢当　谢谢

别怪男人Hold不住！只怪女人穿的太性感！一点都没错~！

只有传奇才能让我心安！传奇骨灰雄起吧

度娘好度娘棒！度娘就是不给吧主当

哈哈哈哈吼吼吼吼度姐姐好可爱噢

话说七县大哥给我送个女优让我过下半辈子！让我怎么办？

今天去佳兆业的海边我看一位黑丝

老大们预处理问题为什么不行呢！求解释

出卖 js珊瑚虫真人素颜照到99楼爆

如果你在写一个万字的文章快写的完的时候发现写的不对！ You 你的心情 and 表情是什么样的？

东戴河早安！

传奇！这个界面适合玩复古的人么

卖一个呢　又没激情。。。

首页 1 2 3 下一页