Delphi 获取带分隔符字符串中的字段值

functionGetFieldValue(separator:Char;strLine:string;nNum:Integer):string;varStrs:TStrings;ResultStr:…

delphi中判断字符串是否为数字

functionIsNumber(pcString:PChar):Boolean;beginResult:=False;whilepcString^<>#0do//0indicatestheendof…

Delphi 如何检查字符串是否为数字

functionIsNumber(pcString:PChar):Boolean;beginResult:=False;whilepcString^<>#0do//0indicatestheendof…

Delphi 如何从文本内容中删除指定行

将完整文件加载到TStringList实例中。然后遍历列表中的项目，并使用Pos函数检查该行是否以“PIL”开头（如果…

Delphi 如何将整数值转换为罗马数字表示形式

functionIntToRoman(num:Cardinal):string;constNvals=13;vals:array[1..Nvals]ofword=(1,4,5,9,10,40,50,9…

Delphi 金额转大写

//注意这里传进去的类型是Currency，functionMoney2ChineseCapital2(constNum:Currency):WideString;constm…

Delphi 提取字符串中所有数字

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

Delphi 判断字符串是否相同

ifSameStr(Edit1.Text,Edit2.Text)then//分大小写ifSameText(Edit1.Text,Edit2.Text)then//不分大小写//空格…

Delphi 反转字符串方法2

functionReverse(s:string):string;varch:char;beginResult:='';forchinsdoResult:=ch+Result;end;

Delphi 验证TStrings是否存在

functionIsPresentInList(strings:TStrings;constvalue:string):Boolean;vari:Integer;beginResult:=False;…

delphi 批量日期格式化

vari:integer;vLine,vStr,vPart:string;vYear,vMonth,vDay:Word;vArr:TArray;vDate:TDateTime;beginMemo2.C…

Delphi 判断是否为空('None', 'Null', '')

functionVarStrEmpty(v:Variant):Boolean;vardata:PVarData;begindata:=FindVarData(V);casedata^.VTypeofv…

Delphi 计算一个字符串在另一个字符串中出现的次数

functionOccurrences(constSubstring,Text:string):integer;varoffset:integer;beginresult:=0;offset:=Pos…

Delphi 提取标签之间的字符串

FunctionsExtractBetweenTagsB(Consts,LastTag,FirstTag:string):string;varpLast,pFirst,pNextFirst:Integ…

delphi - 右滚动文字

procedureTForm1.Timer2Timer(Sender:TObject);const{$WRITEABLECONSTON}ScrollingText:string='Thisisrigh…

delphi 将MemoryStream保存到字符串

varmStream:TMemoryStream;thisString:string;beginmStream:=TMemoryStream.Create;trymStream.LoadFromFil…

Delphi 中将TMemoryStream转换为'String'

functionStreamToString(aStream:TStream):string;varSS:TStringStream;beginifaStream<>nilthenbeginSS:=T…

Delphi Trim删除字符串首尾空格

Delphi删除字符串首尾空格的实例，过滤字符串，替换字符串，删除指定部位的字符串，具体到本例中，是删除字…

delphi 检测判断字符串是否包含有中文字符

此函数是判断一串字符里，是否存在中语汉字，使用的是汉字对应ASCII码原理，如果某个字符串转成ASCII码，且…

delphi 批量给每个字符加括号

方法1procedureT****1.Button1Click(Sender:T****);constiStep=2;varIdx:integer;beginforIdx:=0toLength(M…