2022-12-26 86 0

阿里云发送短信的Delphi单元使用方法uses uAliSmsUtils;AliSms('AccessKeyId', 'AccessKeySecre').Send('手机号码', '签名', '模板编号', '参数');有疑问联系qq：724464297单元下载：https://github.com/liuyashao/AliSmsUtils/blob/master/uAliSmsUtils.pas

2022-12-26 44 0

var i: integer; vLine, vStr, vPart: string; vYear, vMonth, vDay: Word; vArr: TArray<string>; vDate: TDateTime;begin Memo2.Clear; for i := 0 to Memo1.Lines.Count - 1 do begin vLine := Memo1.Lines[i]; vStr := StringReplace(vLine, '.

2022-12-26 207 0

function MyStrToDateTime(vStr: string): TDateTime; var S: string; v: Variant; begin Result := now; S := S := StringReplace(vStr, '.', '-', [rfReplaceAll]); S := StringReplace(S, '/', '-', [rfReplaceAll]);

2022-12-25 191 0

function VarStrEmpty(v:Variant):Boolean;var data:PVarData;begin data := FindVarData(V); case data^.VType of varOleStr: result := (data^.VOleStr^=#0); varString: result := (data^.VString=nil); varUString:

2022-12-25 69 0

function Occurrences(const Substring, Text: string): integer;var offset: integer;begin result := 0; offset := PosEx(Substring, Text, 1); while offset <> 0 do begin inc(result); offset := PosEx(Substring, Text, offset + length(Substring))

2022-12-25 42 0

Function sExtractBetweenTagsB(Const s, LastTag, FirstTag: string): string;var pLast,pFirst,pNextFirst : Integer;begin pFirst := Pos(FirstTag,s); pLast := Pos(LastTag,s); while (pLast > 0) and (pFirst > 0) do begin if (pFirst > pLast) then

2022-12-25 25 0

procedure TForm1.Timer2Timer(Sender: TObject);const{$WRITEABLECONST ON} ScrollingText : string = 'This is right scrolling text ';{$WRITEABLECONST OFF}var ScrollPosition: Integer;begin Label2.Caption := ScrollingText; for ScrollPosition := (Le

2022-12-25 27 0

function IsLightColor(const AColor: TColor): Boolean;var r, g, b, yiq: integer;begin r := GetRValue(AColor); g := GetGValue(AColor); b := GetBValue(AColor); yiq := ((r*299)+(g*587)+(b*114)) div 1000; if (yiq >= 128) then result := True else