摘要:
//cxSplitter禁用移动和拖拽,只允许点击箭头按钮触发缩放(展开和收起) procedure TFraModleBase.cxSplitter3CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); beg 阅读全文
摘要:
function TForm2.getvalue(str: string): string; var strTem, resultStr: string; len, i: Integer; Flag: Boolean; //判断是否已有小数点 begin len := Length(Trim(str 阅读全文
摘要:
常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQuery Class TADODataSet Class TDBGrid Cl 阅读全文
摘要:
var defaultPath:string; //这里可以设置为全局变量begin if SaveDialog1.Execute then begin defaultPath := SaveDialog1.FileName; //文件路径+文件名,不确定是否包含后缀 if ExtractFileE 阅读全文
摘要:
function IntToBin(AInt: Integer): string; begin Result := ''; for var lIndex := 1 to Sizeof(AInt) * 8 do Result := Result + (AInt shr (Sizeof(AInt) * 阅读全文