随笔分类 - Delphi
摘要:Delphi XE TStringBuilder
阅读全文
摘要:book := TXLSWorkbook.Create; try if book.Open(AFIleName) = -1 then begin raise Exception.Create('请检查导入的文件是否存在或Excel已经处于打开状态(如果已经打开,请尝试关闭文件再导入)'); end; ws := b...
阅读全文
摘要:https://yktoo.com/en/software/dklang-traned Features Translation using a dictionary (so-called Translation Repository). Automatic tracking of source a
阅读全文
摘要:teechart 安装流程如下: 1. 将生成的 LIB中的 选中文件copy到C:\Users\Public\Documents\RAD Studio\8.0\Dcp 图1 1. fastreport 需要选择下面三项,重新编译 这里的Path to TeeChart duc files: " D
阅读全文
摘要:TOleControl(WebBrowser1).Visible := False
阅读全文
摘要:function GetMd5(AValue : string) : string; var md5 : TIdHashMessageDigest5; bytes,byte1 : TBytes; begin md5 := TIdHashMessageDigest5.Create; try Result := LowerCase( ...
阅读全文
摘要:Uses IniFiles; const SZ_APP_NAME = 'demo_test'; Procedure TForm1.GetSettings; var _MemIniU: TMemIniFile; _SettingsPath: string; begin try _SettingsPath := GetHomePath + PathDelim + SZ_A...
阅读全文
摘要:// 下面这个主要是对查询出来的数据, 经过筛选后得到的数据中进行反选操作 ,然后对选择的数据进行修改(全选或选择一部分也可以根据些代码修改) Screen.Cursor := crHourGlass; cxGrid2DBTableView1.DataController.GotoFirst; for i := 0 to cxgrid2DBTableView1.DataController....
阅读全文
摘要:procedure TfrmUserV3.ImportUser(const AFileName: string); var book :IXLSWorkBook; ws : IXLSWorkSheet; i,j : Integer; v : Variant; obj : T_LoginUser; objList : T_LoginUserInf; sCode,sN...
阅读全文
摘要:(* * Super Object Toolkit * * Usage allowed under the restrictions of the Lesser GNU General Public License * or alternatively...
阅读全文
摘要:http://yktoo.com/en/software/dklangTraned http://sourceforge.net/projects/dklang/
阅读全文
摘要:Properties.EchoMode:='eemPassword'
阅读全文
摘要:var AIndex: integer; AValue: variant;begin with cxGrid1DBTableView1.DataController.Summary do begin AIndex := DefaultGroupSummaryItems.Inde...
阅读全文
摘要:constructor TWSDLLookup.Create;begin FLookup := TDictionary.Create;end;destructor TWSDLLookup.Destroy;begin ClearWSDLLookup; //问题在这里 inherited;end...
阅读全文
摘要:CxGrid
阅读全文
摘要:http://qc.embarcadero.com/wc/qcmain.aspx?d=61255
阅读全文
摘要:unit Iso8601Unit;interfacetype TIso8601 = class(TObject) public class function DateTimeFromIso8601(const Value: string): TDateTime; static; cl...
阅读全文
摘要:uniquery 配合 mssql 自带存储过程实现分页
阅读全文
摘要:ics OverbyteIcsHttpProt
阅读全文