随笔- 267
文章- 27
评论- 28
阅读-
10万
11 2019 档案
TCustomCombo.SetItemIndex(const Value: Integer);
摘要：procedure TCustomCombo.SetItemIndex(const Value: Integer);begin if csLoading in ComponentState then FItemIndex := Value else if GetItemIndex <> Value
阅读全文
Error reading symbol file
摘要：This has been discussed here many times. I don't know if it was over7000 messages ago or not, but it could have been. Don't include any of the DCU, or
阅读全文
任务栏窗口列表
摘要：var I: integer; spDisp: IDispatch; IE1: IWebBrowser2; ShellWindow: IShellWindows;begin ListBox1.clear; ShellWindow := CoShellWindows.Create; for I :=
阅读全文
找回已删除的文件或目录
摘要：找回已删除的文件或目录 打开版本库浏览器-HEAD，ShowLog，找到某个版本。 在 右边找到文件，右键- 另外，Copy to ... 后面需要输入 URL 不是 Windows的路径
阅读全文
superObject D类型的 小数默认位数
摘要：jo := SO(); jo.D['aa'] := StrToFloatDef('9.00', 0); Memo1.Text := jo.AsString //{"aa":9.} 只是一个点
阅读全文
AddObject ,把字符串 作为对象
摘要：procedure TForm1.Button1Click(Sender: TObject);var PKey: PChar; S: string;begin S := '你好'; Memo1.Clear; PKey := StrAlloc(SizeOf(Char) * length(S)); St
阅读全文
//目前是1月 ，要查去年12月的
摘要：if MonthOf(Date) = 1 then //目前是1月 ，要查去年12月的 Y := -1 //要显示去年 else Y := 0; for I := 12 downto 1 do cmbMonth.Items.Add(Format('%d-%.2d', [YearOf(Date) + Y, I])); if Y = 0 then cmbMonth.ItemIndex := cmbMo
阅读全文
DelphiSpeedUp 禁用
摘要：涉及到 2个地方，一个 IDE BPL, 一个专家 DLL
阅读全文
