- 博客(5)
- 资源 (39)
- 收藏
- 关注
原创 delphi Getclass findClass用法
var className: string; HelperClass: THelperClass;begin Result := nil; className := FConfig.ReadString('Configuration', 'className', ''); if className = '' then Exit; if
2013-09-17 16:00:16 3593
原创 delphi7 JSON测试
procedure TForm1.Button1Click(Sender: TObject);var sj, aj, sjj: ISuperObject; i: integer;begin sj := SO(); sjj := SO(); aj := SA([]); for i := 0 to 10 do begin sj.s['Phon
2013-09-16 19:22:38 5310
原创 Delphi richedit获取选中文字
function TForm1.GetSendText(RichEdit: TExRichEdit): string;var MsgListInfo: TStrings; i, m, n: integer; x, y: LongInt; WideStr: WideString;begin Result := ''; MsgListInfo := TStr
2013-09-10 17:34:28 3005
原创 c++线程
DWORD WINAPI Func1Proc(LPVOID lpParamter);DWORD WINAPI Func2Proc(LPVOID lpParameter);int main(void){HANDLE hThread1;HANDLE hThread2;hThread1 = CreateThread(NULL,0,Func1Proc,NULL,0,NULL
2013-09-04 14:19:56 579
原创 Run-Time Check Failure #0 - The value of ESP was not properly saved across a function call. This is
//定义指针函数typedef int(*DLLFUNC)(int,int);int main(void){DLLFUNC dllfunc;HINSTANCE hinstance = LoadLibrary("main.dll");// try//{if(hinstance != NULL){dllfunc = (DLLFUNC)GetProcAdd
2013-09-04 11:16:23 17054 4
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人