delphi 检测是否包含字符

functionCharInString(S:string;Ch:Char):Boolean;varI:Integer;beginResult:=False;forI:=Low(S)toHigh(S)…

delphi TStringList.Find

procedureTForm1.Btnx_1Click(Sender:TObject);varIdexA:Integer;ListA:TStringList;begintryListA:=TStrin…

delphi 有关PChar.StrCopy的实验

procedureTForm1.Btnx_1Click(Sender:TObject);varStrxA:string;PStrA:PChar;beginStrxA:='330226198501017…

delphi 比较两数字大小取最大值

function_Max(constA,B:Integer):Integer;beginifA>BthenResult:=AelseResult:=B;end;

Delphi xe 分割字符串太方便了

procedureTForm1.Button2Click(Sender:TObject);varm_Str:string;m_StrList:TArray;I:Integer;beginm_Str:=…

delphi 判断是否是十六进制数

functionIsHexDigit(C:Char):Boolean;beginResult:=CharInSet(C,['A'..'F','a'..'f','0'..'9']);end;

delphi Float转换Int

functionFloatToInt(constF:Double):Int64;begin//Wedon'tjustuseRound()onitsownbecausedon'twantbankersr…

delphi 精炼的数字转换人民币大写转换代码

functionMoneyConvert(mmje:real):WideString;constcNum:WideString='零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰…

delphi 判断是否是0-9数字

functionIsDigit(ch:char):boolean;beginResult:=chin['0'..'9'];end;

delphi 获取汉字拼音首字母

functionHZtoPY(HZStr:WideString):String;Vars,c:AnsiString;i:Integer;beginResult:='';fori:=1ToLength(…

delphi 基础学习指定字符替换其他字符

procedureT****1.Button1Click(Sender:T****);vars****:s****ing;len,i:integer;begins****:=Memo1.Text;if…

delphi 基础学习 字符串去掉回车符

procedureT****1.Button1Click(Sender:T****);vars****:s****ing;len,i:integer;begins****:=Memo1.Text;if…

delphi 测试字符串写入类: TStringWriter

以前没见过这个类,它是在TStringBuilder的基础上实现的;使用它可以方便地把各种数据类型写入字符串.unitUni…

delphi 测试字符串读取类: TStringReader

TStringReader比TStringWriter的方法少得多,分别可按:字符、行或全部读取;读取字符时得到的是字符编码,全部…

delphi 文本列数值排序从小到到

//感谢高手Delphi/黑夜(281309196)分享functionMySort(List:TStringList;Index1,Index2:Integer):Integer;v…

delphi Pointer 转成string

vars:string;p:pointer;s:=PChar(p);前提p指向的字符串要以#0结尾。来源https://www.cnblogs.com/zhangzhif…

Delphi string内存结构

vars:AnsiString;begins:='1234567890';showmessage(s);end;变量s的内存结构为A8030100FFFFFFFF0A000000313…

Delphi XE新语法/新功能

usesSystem.NetEncoding;TNetEncoding.Base64.EncodeString(S);TNetEncoding.Base64.DecodeString(S);TNetE…

Delphi中补齐字符串长度

函数功能：当Str不满Len长度时，在Str前自动填充FillStr以补足长度functionFillString(constStr:string;Len…

delphi Ansi字符串转Unicode编码

functionTForm1.AnsiToUnicode(Str:ansistring):string;vars:ansistring;i:integer;j,k:string[2];a:array[…