aaaaaaaaaaaa
代码改变世界

delphi lazarus dll静态调用

2021-01-26 13:04 by 二进制乐谱, 278 阅读, 0 推荐, 收藏, 编辑
摘要://procedure SetHook(dwThreadId: DWORD; pid: DWORD); stdcall; external 'mtf'; // //procedure StopHook; stdcall; external 'mtf'; 阅读全文

x64dbg条件断点

2021-01-21 12:11 by 二进制乐谱, 242 阅读, 0 推荐, 收藏, 编辑
摘要:1字节 1:[46430020]==1 n:[地址] 取地址中n字节 1:[0x46430020]!=0x10 && 1:[0x46430020]!=8 && 1:[0x46430020]!=0xc 日志输出一字节 {1:[46430020]} 阅读全文

git 修改https为ssh

2021-01-19 19:22 by 二进制乐谱, 414 阅读, 0 推荐, 收藏, 编辑
摘要:git remote set-url ssh地址 git remote -v 查看当前地址 阅读全文

val

2021-01-19 12:53 by 二进制乐谱, 311 阅读, 0 推荐, 收藏, 编辑
摘要://将字符串转为int或者 floatprocedure TRtlForm.Button3Click(Sender: TObject); var i:Integer; begin val('123',i); ShowMessage(IntToStr(i)); end; 阅读全文

delphi pos

2021-01-19 12:38 by 二进制乐谱, 163 阅读, 0 推荐, 收藏, 编辑
摘要:procedure TRtlForm.Button2Click(Sender: TObject); var sub, s2: string; i: integer; begin sub := '-'; s2 := '123-123'; i := Pos(sub, s2); //找到sub在s2中的位 阅读全文

delphi lazarus copy

2021-01-19 12:33 by 二进制乐谱, 73 阅读, 0 推荐, 收藏, 编辑
摘要:procedure TRtlForm.Button1Click(Sender: TObject); var s1,s2:String; begin s1:='1234567'; //从第3个开始拷贝10个字符,超过字符长度全拷贝 s2:=Copy(s1,3,10); ShowMessage(s2); 阅读全文

delphi之tlistbox

2021-01-19 12:04 by 二进制乐谱, 158 阅读, 0 推荐, 收藏, 编辑
摘要:取出第i项processlist.items[i]读写数据 ListBox1.Items[10]:='设置值'; ShowMessage(ListBox1.Items[10]); 阅读全文

delpi 中TStrings 和Tstringlist

2021-01-19 11:54 by 二进制乐谱, 118 阅读, 0 推荐, 收藏, 编辑
摘要:Tstings不能调用构造函数 Tstringlist可以 使用时,用tstringlist 传参时tstringlist可以传给参数为tstrings参数 阅读全文

c++和delphi语法对比

2021-01-19 09:15 by 二进制乐谱, 258 阅读, 0 推荐, 收藏, 编辑
摘要:上排c++下排delphi指针定义 char* p; var p:^char; 指针成员 ^. -> 赋值语句 = := for 结构 for(i=1;i<100;i++) { } for i:=1 to 100 do begin end 循环结构 while(true) { } while(tru 阅读全文

delphi assigned

2021-01-18 22:35 by 二进制乐谱, 136 阅读, 0 推荐, 收藏, 编辑
摘要:assigned 判断指针是否为空,空返回假 ptr:=GetMem(SizeOf(testrecord)); if not Assigned(ptr) then begin OutputDebugString(' nil'); end; 阅读全文
上一页 1 2 3 4 5 6 ··· 18 下一页
aaaaaaaaaaaaa