delphi获取子字符串

最新推荐文章于 2025-06-03 16:55:06 发布

原创最新推荐文章于 2025-06-03 16:55:06 发布 · 6.2k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #string #function

小方法专栏收录该内容

4 篇文章

订阅专栏

本文介绍了三种不同的字符串截取方法，包括使用开始和结束标记来获取源字符串中的子串。每种方法都通过示例展示了如何定义函数并实现特定的字符串处理任务。

1.{作用：截取字符串中的某一些字符
strSource：源字符串
strBegin：开始位置字符串
strEnd：结束位置字符串
例：GetStr('abcd1234','bc','34')返回值：'d12'
}
function GetStr(StrSource, StrBegin, StrEnd: string): string;
var
in_star,in_end:integer;
begin
in_star:=AnsiPos(strbegin,strsource)+length(strbegin);
in_end:=AnsiPos(strend,strsource);
result:=copy(strsource,in_star,in_end-in_star);
end;
==============================================================
2.{作用：截取字符串中的某一些字符
strSource：源字符串
strBegin：开始位置字符串
strEnd：结束位置字符串
例：GetStrAll('abcd1234','bc','34')返回值：'bcd1234'
}
function GetStrAll(StrSource, StrBegin, StrEnd: string): string;
var
in_star,in_end:integer;
begin
in_star:=AnsiPos(strbegin,strsource);// +length(strbegin)
in_end:=AnsiPos(strend,strsource)+length(strend);
result:=copy(strsource,in_star,in_end-in_star);
end;

==============================================================
3.{ 作用：截取字符串中的某一些字符
strSource：源字符串
strBegin：开始位置
strEnd：结束位置字符串
例：GetStr('abcd1234',1,'34')返回值：'abcd12'
}
function GetStrByIndex(StrSource:string; BeginIndex:integer;StrEnd: string): string;
var
in_star,in_end:integer;
begin
in_star:=BeginIndex;
in_end:=AnsiPos(strend,strsource);
result:=copy(strsource,in_star,in_end-in_star);
end;