delphi将文件的内容读取为字符串

//方法1：UsesIOUtils;TFile.ReadAllText(FileName);TFile.ReadAllText(FileName,s,TEncoding.ASCII)//forc…

Delphi TStrings类的一些技巧

对于TStrings类型变量，需要使用TStringList.Create;创建[luther.gliethttp]，否则提示abstracterror错误TS…

delphi 根据关键字取关键词以后的字符串

functionGetStrtoend(StrSource,StrBegin:string):string;//(源字符串，开始字符串)varin_star:Integer;beg…

delphi 多关键词批量替换

procedureTForm2.Button1Click(Sender:TObject);varI:Integer;str:string;beginstr:=Memo2.Text;//文本内容…

delphi 一种高效的自定义字符串替换函数

Delphi自带的StringReplace确实效率低，下面我给你两个函数，是世界级程序高手用汇编语言写的，速度绝对快，…

delphi 高速替换大文本字符串内容

普通替换：varS****:s****ing;i:Integer;T1,T2:Integer;beginT1:=GetTickCount;****yfori:=0toM.Lines.Coun…

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的方法少得多,分别可按:字符、行或全部读取;读取字符时得到的是字符编码,全部…