摘要： 1 uses ComObj; 2 procedure TForm1.Button1Click(Sender: TObject); 3 var 4 wdo,wdoc,wdocs : OleVariant; 5 begin 6 wdo := CreateOleObject('Word.Application'); 7 wdocs := wdo.Documents; 8 ... 阅读全文

摘要： For "Object already exists" or "Access denied" errors when installing try opening Control Panel > Programs and Features > View installed updates then ... 阅读全文

摘要： 版本不对的原因。具体在10.5.9下修改此参数即可解决问题。LoadFunction() has an ACritical parameter. It is set to True by default, but can be set to False for individual function... 阅读全文

摘要： uses Winapi.Wininetfunction WebPagePost(sURL,sPostData:AnsiString):AnsiString;stdcall;const RequestMethod = 'POST'; HTTP_VERSION = 'HTTP/1.1'; //HTTP版本 我抓包看过 HTTP/1.0 HTTP/1.1。尚未仔细了解其区别。按MSDN来写的。留空默认是1.0var HttpsFlag:Boolean; dwSize:DWORD; dwFileSize: Int64; dwBytesRead,dwReserved:DW 阅读全文

摘要： function EncryptHMACSha512(Input, AKey: String): String; var SHA512 : TIdHMACSHA512; tmp:String; begin SHA512:=TIdHMACSHA512.Create; try SHA512.Key:=TIdDecoderMIME.DecodeBytes(AKey); Result:=TIdEncoderMIME.EncodeBytes(SHA512.HashValue(bytesof(Input))); finally SHA512.Free; end;end;结果与此网址一致：http://ca 阅读全文

摘要： selectisnull(sum(casewhenpassword='input_password'then2else1end),0)asOKfromuserid='input_userid'OK=0用户名不存在OK=1密码错误OK=2验证成功 阅读全文

摘要： SUBSTRING( email, INSTR( email, '@' ) ) 阅读全文

摘要： 1 procedure TFrmWeekAnalysisQry.BtnExportToExcelClick(Sender: TObject); 2 var wordApp,WordDoc,WrdSelection:variant; 3 strAdd:string; 4 i,j,iRangeEnd,iStart,iEnd : integer; 5 wdPar,wdRange:OleVariant; 6 oShape, oChart,myCol: OleVariant; 7 SumJHTonCount, SumWCTonCount, PJTS, PJZCSJ, ... 阅读全文

摘要： //分割字符串 ExtractStringsvar s: String; List: TStringList;begin s := 'about: #delphi; #pascal, programming'; List := TStringList.Create; ExtractStrings([';',',',':'],['#',' '],PChar(s),List); //第一个参数是分隔符; 第二个参数是开头被忽略的字符 ShowMessage(List.Text); //about //d 阅读全文

摘要： 关于Excel导入的HDR=YES;IMEX=1详解Provider=Microsoft.Jet.OLEDB.4.0;Data Source=111.xls;Extended Properties="Excel 8.0;HDR=NO";其中HDR=NO或YES即首行包含列名称选项(参数HDR的值：HDR=Yes，这代表第一行是标题，不做为数据使用，如果用HDR=NO，则表示第一行不是标题，做为数据来使用。系统默认的是YES参数Excel 8.0对于Excel 97以上版本都用Excel 8.0IMEX ( IMport EXport mode )设置 IMEX 有三种模式： 阅读全文