摘要：
unit uHanzi; interface uses Winapi.Windows, System.SysUtils; const //3500个一级汉字 {$REGION '3500个一级汉字'} HanziLevel1 = '一乙二十丁厂七卜八人入儿匕几九***了刀力乃又三干于亏工土士才下寸大丈与万上小口山巾'+ '千乞川亿个夕久么勺凡丸及广亡门丫义之尸己... 阅读全文
|
摘要：
unit uHanzi; interface uses Winapi.Windows, System.SysUtils; const //3500个一级汉字 {$REGION '3500个一级汉字'} HanziLevel1 = '一乙二十丁厂七卜八人入儿匕几九***了刀力乃又三干于亏工土士才下寸大丈与万上小口山巾'+ '千乞川亿个夕久么勺凡丸及广亡门丫义之尸己... 阅读全文
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const MW_MYMSG = WM_USER + 1; type TFormFF = class(TForm) Edit... 阅读全文
摘要：
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
摘要：
procedure TForm1.FormCreate(Sender: TObject); begin try IdSMTP1.AuthenticationType := atLogin; IdSMTP1.Host := 'smtp.qq.com'; IdSMTP1.Username := 'tes 阅读全文
摘要：
本人以x64 VC14编译版本为例， Windows版本： Window Server 2008 R2 x64 Python: 3.7.2 x64 1. 首先安装Python环境，安装python3.7.2 x64版本 下载地址：https://www.python.org/ftp/python/3 阅读全文
摘要：
var mStream: TMemoryStream; vcode: array[0..49] of AnsiChar; buffer: array of AnsiChar; begin mStream := TMemoryStream.Create; mStream.LoadFromFile('1.png'); //GetMem(vcode, 50); ShowM... 阅读全文
摘要：
function GetPJData(APage: Integer): string; var IdHTTP: TIdHTTP; url: string; paramsList: TStringList; StrStream: TStringStream; const C_URL = 'https://www.tcpjw.com/OrderList/TradingCenter... 阅读全文
摘要：
function DecodePJItem(sText: string): TList; var reg: TRegEx; mc: TMatchCollection; item: TMatch; dataItem: TDataItem; begin Result := TList.Create; sText := reg.Replace(sText, '\n', '');... 阅读全文
|