functionCharInString(S:string;Ch:Char):Boolean;varI:Integer;beginResult:=False;forI:=Low(S)toHigh(S)…
procedureTForm1.Btnx_1Click(Sender:TObject);varIdexA:Integer;ListA:TStringList;begintryListA:=TStrin…
procedureTForm1.Btnx_1Click(Sender:TObject);varStrxA:string;PStrA:PChar;beginStrxA:='330226198501017…
function_Max(constA,B:Integer):Integer;beginifA>BthenResult:=AelseResult:=B;end;
procedureTForm1.Button2Click(Sender:TObject);varm_Str:string;m_StrList:TArray;I:Integer;beginm_Str:=…
functionIsHexDigit(C:Char):Boolean;beginResult:=CharInSet(C,['A'..'F','a'..'f','0'..'9']);end;
functionFloatToInt(constF:Double):Int64;begin//Wedon'tjustuseRound()onitsownbecausedon'twantbankersr…
functionMoneyConvert(mmje:real):WideString;constcNum:WideString='零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰…
functionIsDigit(ch:char):boolean;beginResult:=chin['0'..'9'];end;
functionHZtoPY(HZStr:WideString):String;Vars,c:AnsiString;i:Integer;beginResult:='';fori:=1ToLength(…
procedureT****1.Button1Click(Sender:T****);vars****:s****ing;len,i:integer;begins****:=Memo1.Text;if…
procedureT****1.Button1Click(Sender:T****);vars****:s****ing;len,i:integer;begins****:=Memo1.Text;if…
以前没见过这个类,它是在TStringBuilder的基础上实现的;使用它可以方便地把各种数据类型写入字符串.unitUni…
TStringReader比TStringWriter的方法少得多,分别可按:字符、行或全部读取;读取字符时得到的是字符编码,全部…
//感谢高手Delphi/黑夜(281309196)分享functionMySort(List:TStringList;Index1,Index2:Integer):Integer;v…
vars:string;p:pointer;s:=PChar(p);前提p指向的字符串要以#0结尾。来源https://www.cnblogs.com/zhangzhif…
vars:AnsiString;begins:='1234567890';showmessage(s);end;变量s的内存结构为A8030100FFFFFFFF0A000000313…
usesSystem.NetEncoding;TNetEncoding.Base64.EncodeString(S);TNetEncoding.Base64.DecodeString(S);TNetE…
函数功能:当Str不满Len长度时,在Str前自动填充FillStr以补足长度functionFillString(constStr:string;Len…
functionTForm1.AnsiToUnicode(Str:ansistring):string;vars:ansistring;i:integer;j,k:string[2];a:array[…