2022-11-20 56 0

uses uniGUIApplication;UniSession.AddJS(UniStringGrid1.JSName + '.store.reload();');

2022-11-20 29 0

(*********************取16进制字符的10进制的integer值*******************)function HexToInt(HexStr:String):Integer;var i,TempInt,LocalInt:Integer;begin HexStr:=UpperCase(HexStr); LocalInt:=1; Result:=0; for i:=Length(HexStr) downto 1 do begin if HexStr[i]

2022-11-20 47 0

var Sl: TStringList;begin Sl := TStringList.Create; Sl.DefaultEncoding := TEncoding.UTF8; Sl.WriteBOM := True; Try Sl.Add(Lines[I]); Sl.SaveToFile(FileName); finally Sl.Free; end; end;

2022-11-20 27 0

1、拖一个TIdSMTP控件，命名为：ZkyIdSMTP2、拖一个IdMessage控件，命名为：ZkyIdMessage3、拖一个按钮控件，双击进去后写代码。如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient, I

2022-11-20 35 0

2022-11-20 38 0

{一个WinSock API写的邮件发送单元。调用方法:DNASendEMail(SMTP服务器地址, 发送MAIL用户名, 发送MAIL的密码, 发送MAIL全名, 接收MAIL[可和发送MAIL相同],信笺主题, 信笺内容):Bool;{ Send Email Unit One By Anskya Email:Anskya@Gmail.com Web:Www.Yryz.Net}unit SendMailAPI;interfaceuses windows, winsock;functio

2022-11-20 25 0

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, MSCommLib_TLB; type TForm1 = class(TForm) MSComm1: TMSComm; MSComm2: TMSComm; Button1: TButton; Button2: TBu

2022-11-20 90 0

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) con1: TADOConnection; ds1: TADODataSet; ds2: