{*****************************扩展的字符串操作函数*****************************}
procedure SwapStr(var s1, s2: string); // 交换字串
function StrRight(Str: String; Len: Integer): String; //返回字符串右边的字符 Examples: StrRight('ABCEDFG',3);返回:'DFG'
function StrLeft(Str: string; Len: Integer): string; //返回字符串左边的字符
function StrNum(ShortStr:string;LongString:string):Integer; //返回某个字符串中某个字符串中出现的次数
function FindStr(ShortStr:String;LongStrIng:String):Integer; //返回某个字符串中查找某个字符串的位置
function SubStr(psInput:String; BeginPlace,CutLeng:Integer):String;//返回从位置BeginPlace开始切取长度为CatLeng字符串
function RandomStr(aLength : Longint) : String; //随机字符串函数
function RandomSys(Num: Integer): integer; //利用系统时间产生随机数
function RandomGuid:string;//用GUID得到一个永远不会重复的随机序列
方法主体:
procedure SwapStr(var s1, s2: string);
var
tempstr: string;
begin
tempstr := s1;
s1 := s2;
s2 := tempstr;
end;
function StrRight(Str: string; Len: Integer): string;
begin
if Len >= Length(Str) then
Result := Str
else
Result := Copy(Str, Length(Str) - Len + 1, Len);
end;
function StrLeft(Str: string; Len: Integer): string;
begin
if Len >= Length(Str) then
Result := Str
else
Result := Copy(Str, 1, Len);
end;
function StrNum(ShortStr:string;LongString:string):Integer;
var
i:Integer;
begin
i:=0;
while pos(ShortStr,LongString)>0 do
begin
i:=i+1;
LongString:=Substr(LongString,(FindStr(ShortStr,LongString))+1,Length(LongString)-FindStr(ShortStr,LongString))
end;
Result:=i;
end;
function FindStr(ShortStr:String;LongStrIng:String):Integer;//在一个字符串中找某个字符的位置
var
locality:integer;
begin
locality:=Pos(ShortStr,LongStrIng);
if locality=0 then
Result:=0
else
Result:=locality;
end;
function SubStr(psInput:String; BeginPlace,CutLeng:Integer):String;
begin
Result:=Copy(psInput,BeginPlace,CutLeng)
end;
function RandomStr(aLength : Longint) : String;
var
X : Longint;
begin
if aLength <= 0 then exit;
SetLength(Result, aLength);
for X:=1 to aLength do
Result[X] := Chr(Random(26) + 65);
end;
function RandomSys(Num: Integer): integer;
var
T: _SystemTime;
X: integer;
I: integer;
begin
Result := 0;
If Num = 0 then Exit;;
GetSystemTime(T);
X := Trunc(T.wMilliseconds/10) * T.wSecond * 1231;
X := X + random(1);
if X<>0 then
X := -X;
X := Random(X);
X := X mod num;
for I := 0 to X do
X := Random(Num);
Result := X;
end;
function RandomGuid:string;
var
ID: TGUID;
begin
if CreateGuid(ID) =0 then
begin
Result := GUIDToString(ID);
end;
end;
分享到:
相关推荐
`SetLength` 函数允许动态调整字符串的长度,这对于创建固定长度的字符串或根据需要扩展字符串容量非常有帮助。例如,`SetLength(S, 10)` 将 S 的长度设置为10,如果原始字符串长度小于10,剩余位置将用空格填充;...
### Delphi 数组与字符串操作知识...以上就是 Delphi 中常用的字符串操作函数的详细介绍。这些函数非常实用,在实际开发过程中能够极大地提高程序的灵活性和效率。掌握这些基本操作,可以更高效地进行字符串处理工作。
在 Delphi 编程语言中,处理字符串表达式的计算是一项常见的任务,尤其是在需要动态解析数学表达式的情况下。本文将深入探讨如何编写一个简单的数值字符表达式计算函数,该函数能够处理基本的数学运算(包括加、减、...
假设我们需要将一个日期时间格式化为特定的字符串格式,我们可以使用 Delphi 的字符串操作函数结合日期时间函数。例如: ```delphi uses SysUtils; var DateStr: String; begin DateStr := FormatDateTime('yyyy-...
在Delphi中,我们可以使用`Format`函数或者`IntToStr`配合枚举类型的`Ord`函数来将枚举值转换为字符串。`Ord`函数返回枚举类型的整数值,然后可以使用`IntToStr`将其转换为字符串。例如,如果有一个名为`Color`的...
总之,Delphi中的字符串分割是一个常用的操作,通过自定义`SplitString`函数可以方便地实现。理解并掌握这个技术,对于编写高效、灵活的文本处理程序至关重要。在实际项目中,你可以根据具体需求调整和扩展这个函数...
综上所述,实现Delphi7中的字符串四则运算解析涉及了字符串处理、表达式解析、自定义函数、错误处理等多个方面,结合提供的源代码文件,我们可以深入研究这些概念并构建自己的计算引擎。对于计件工资类软件,这样的...
在Delphi编程环境中,我们经常遇到需要处理包含数字和字母的字符串,并且可能需要对其中的数字部分执行算术操作,比如自增。这个场景在处理编号、序列号或者密码时尤为常见。当我们遇到字符串中的数字长度不足以表示...
### Delphi扩展的文件目录操作函数 #### 一、文件目录操作函数 1. **MoveFile** `function MoveFile(const sName, dName: string): Boolean;` **用途**: 移动文件或目录,参数分别为源文件名(或目录名)和...
对于字符串操作,我们可以使用内置的字符串函数和方法,例如`Length()`来获取字符串的长度,`Copy()`来截取子字符串,以及`Pos()`来查找子字符串的位置。 要判断字符串中的数字个数,我们可以遍历字符串的每一个...
Delphi 7.0 提取字符串中指定子字符串后的字符串,这个平时在字符处理时候使用几率也挺高的,获取指定字符串后面的字符串,比如获取扩展名等也可以用此方法,本例中要用到After函数,测试时,当单击按钮时,执行以下...
从字符串中取出数字 以模式匹配比较字符串 使用associative arrays 使用Pos函数递归搜索 分离文本为字 分解字符串 加密口令 加密解密字符串 取URL中的文件名 取字符串中的字符排列 在 Case 语句中使用字符串 在...
在实际应用中,我们还可以扩展这个函数,例如添加对负数的支持,或者检查字符串是否为空,甚至可以处理更大的整数类型,如 `Int64`,通过使用 `TryStrToInt64` 函数。 在"Delphi 判断字符串是否为整数.rar"这个...
在 Delphi 中,我们可以使用 `AnsiContainsText` 或 `UnicodeContainsText` 函数来检查字符串中是否包含特定字符,但这些函数无法直接识别中文字符集。因此,我们需要自定义方法来判断中文字符。 这个 Delphi 源码...
`Length` 函数用于计算字符串的长度,这对于数据验证和字符串操作非常关键。 #### 23. LowerCase - 字符串转换为小写函数 `LowerCase` 函数用于将字符串转换为全部小写形式,这对于不区分大小写的文本处理非常有用...
根据给定的信息,本文将详细介绍Delphi中的经典函数,这些函数涵盖了从字符串处理到网络功能等多方面。Delphi作为一种广泛使用的开发工具,为开发者提供了丰富的内置函数来简化编程任务。 ### 一、扩展的字符串操作...
我们可以使用内置的字符串函数,如`Length()`来获取字符串的长度(以字符计),但请注意,这会计算所有字符,包括非汉字。 3. **字符遍历**: 要统计汉字,我们需要遍历字符串中的每一个字符。这可以通过索引访问...
首先,库中提供的【扩展的字符串操作函数】包括了如`InStr`函数,用于判断一个字符串是否包含在另一个字符串中,以及`IntToStrEx`函数,这是一个扩展的整数转换为字符串的函数,允许指定字符串长度并用指定字符填充...
总之,《字符串加密组件-Encode-Delphi原码》为Delphi开发者提供了一套完整的加密解决方案,它不仅包含了实际的加密算法实现,还考虑到了实际应用中的可配置性和扩展性。通过对源代码的研究,开发者不仅可以提升自身...