摘要:
class function yxm.trimblank(s: string): string;var i, j: integer;begin repeat i := pos(' ', s); j := length(s); if i > 0 then s := copy(s, 1, i - 1) 阅读全文
摘要:
for i := 0 to cbb_controlmattype.Items.Count -1 do begin if cbb_controlmattype.Items[i].Selected = True then begin if cbb_controlmattype.Items[i].Expa 阅读全文
摘要:
常用DELPHI控件属性事件设置说明 常用DELPHI控件属性事件设置说明 常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQu 阅读全文