摘要:
//存多个数字 例子procedure TForm1.btn1Click(Sender: TObject); var i:integer; A,B,C,d:INTEGER; begin //设计的时候根据使用场景 要存多个数字,每个数字只能占多少 //4个数字 每个数字8bit =1个字节 A := 阅读全文
摘要:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type tmythreadclass = class o 阅读全文
摘要:
通过类名称(字符串)创建类实例 首先要在 initialization 区域注册要创建的类 RegisterClass(TYourClass); 然后在运行期使用如下代码创建 TYourClass 类的实例。 procedure Txxx.xxxx;varcls: TPersistentClass; 阅读全文
摘要:
通常用WaitForCompletion(True) 去等待 如果中途不想要继续接受数据了 有两种方法: 在DataReceived里 //当前请求跳过 TRtcDataClient(sender).Request.Skip; //跳过所有请求 TRtcDataClient(sender).Skip 阅读全文
摘要:
procedure TForm1.con1ExecuteComplete(Connection: TADOConnection; RecordsAffected: Integer; const Error: Error; var EventStatus: TEventStatus; const Co 阅读全文
摘要:
function CreateEvent( lpEventAttributes: PSecurityAttributes; {安全设置} bManualReset: BOOL; {第一个布尔} bInitialState: BOOL; {第二个布尔} lpName: PWideChar {对象名称} 阅读全文
摘要:
使用默认皮肤相关单元: dxSkinsDefaultPainters //默认皮肤 dxSkinscxPCPainter //要引用这个pagecontrol才有皮肤 dxSkinsdxStatusBarPainter //用引用这个 状态栏才有皮肤 dxSkinsdxBarPainter //菜单 阅读全文
摘要:
对接快麦接口时,使用TIdMultiPartFormDataStream 多表单提交数据。 因为TIdMultiPartFormDataStream 每加一个字段时,总会在最后多加一个回车。这也就导致了最后总是有一个回车,接口在读取最后一个值时会多一个回车字符。导致签名过不了。 要处理一下,这里不改 阅读全文
摘要:
//使用土拨鼠单元 uses SynCrypto; //有中文要先UTF8Encode var sha256Digest:TSHA256Digest; begin HMAC_SHA256('123',UTF8Encode('中文tag123'),sha256Digest); ShowMessage( 阅读全文
摘要:
IF OBJECT_ID('fn_dupchar') IS NOT NULL DROP FUNCTION fn_dupchar GO /* 2022-04-28 返回指定位数、char的组合。比如要返回4个00 select dbo.fn_dupchar(4,'0') 这里只支持单个字符。 */ C 阅读全文