functionGetFieldValue(separator:Char;strLine:string;nNum:Integer):string;varStrs:TStrings;ResultStr:…
functionIsNumber(pcString:PChar):Boolean;beginResult:=False;whilepcString^<>#0do//0indicatestheendof…
functionIsNumber(pcString:PChar):Boolean;beginResult:=False;whilepcString^<>#0do//0indicatestheendof…
将完整文件加载到TStringList实例中。然后遍历列表中的项目,并使用Pos函数检查该行是否以“PIL”开头(如果…
functionIntToRoman(num:Cardinal):string;constNvals=13;vals:array[1..Nvals]ofword=(1,4,5,9,10,40,50,9…
//注意这里传进去的类型是Currency,functionMoney2ChineseCapital2(constNum:Currency):WideString;constm…
unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…
ifSameStr(Edit1.Text,Edit2.Text)then//分大小写ifSameText(Edit1.Text,Edit2.Text)then//不分大小写//空格…
functionReverse(s:string):string;varch:char;beginResult:='';forchinsdoResult:=ch+Result;end;
functionIsPresentInList(strings:TStrings;constvalue:string):Boolean;vari:Integer;beginResult:=False;…
vari:integer;vLine,vStr,vPart:string;vYear,vMonth,vDay:Word;vArr:TArray;vDate:TDateTime;beginMemo2.C…
functionVarStrEmpty(v:Variant):Boolean;vardata:PVarData;begindata:=FindVarData(V);casedata^.VTypeofv…
functionOccurrences(constSubstring,Text:string):integer;varoffset:integer;beginresult:=0;offset:=Pos…
FunctionsExtractBetweenTagsB(Consts,LastTag,FirstTag:string):string;varpLast,pFirst,pNextFirst:Integ…
procedureTForm1.Timer2Timer(Sender:TObject);const{$WRITEABLECONSTON}ScrollingText:string='Thisisrigh…
varmStream:TMemoryStream;thisString:string;beginmStream:=TMemoryStream.Create;trymStream.LoadFromFil…
functionStreamToString(aStream:TStream):string;varSS:TStringStream;beginifaStream<>nilthenbeginSS:=T…
Delphi删除字符串首尾空格的实例,过滤字符串,替换字符串,删除指定部位的字符串,具体到本例中,是删除字…
此函数是判断一串字符里,是否存在中语汉字,使用的是汉字对应ASCII码原理,如果某个字符串转成ASCII码,且…
方法1procedureT****1.Button1Click(Sender:T****);constiStep=2;varIdx:integer;beginforIdx:=0toLength(M…