2022-12-26 46 0

unit Unit2;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm2 = class(TForm) Memo1: TMemo; Button1: TButton; Edit1: TEd

2022-12-26 55 0

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; proced

2022-12-26 78 0

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Grids, ExtCtrls,ComObj;type TForm1 = class(TForm) strngrd1: TStringGrid; pb1: TProgressBar; btn1: TButton; dlg

2022-12-26 51 0

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Net.URLClient, Jpeg, System.Net.HttpClient, System.Net.HttpClientComponent, Vcl.Std

2022-12-26 39 0

// 注意这里传进去的类型是 Currency ，function Money2ChineseCapital2(const Num: Currency ): WideString;const mnUnit: WideString ='分角元';const OtherWords: WideString='整负';const hzUnit: WideString = '拾佰仟万拾佰仟亿';const hzNum: WideString='零

2022-12-26 94 0

if SameStr(Edit1.Text,Edit2.Text) then //分大小写if SameText(Edit1.Text,Edit2.Text) then //不分大小写//空格在比较内容之内

2022-12-26 49 0

function Reverse(s: string): string;var ch: char;begin Result := ''; for ch in s do Result := ch + Result;end;

2022-12-26 118 0

uses IdGlobal, IdHashSHA, IdHMAC, IdHMACSHA1, IdSSLOpenSSL;function CalculateHMACSHA256(const value, salt: String): String;var hmac: TIdHMACSHA256; hash: TIdBytes;begin LoadOpenSSLLibrary; if not TIdHashSHA256.IsAvailable then raise Exception.Cre