本文整理自网络，侵删。
function GetStr(StrSource,StrBegin,StrEnd:string):string; //（源字符串，开始字符串，结束字符串）
var
in_star,in_end:integer;
strtmp:string;
begin
in_star:=AnsiPos(strbegin,strsource)+length(strbegin);
strtmp:=copy(strsource,in_star,length(strsource));
in_end:=AnsiPos(strend,strtmp);
result:=copy(strsource,in_star,in_star + in_end-in_star -1);
end;
Delphi代码2、
function GetStr_n(StrSource,StrBegin:string;ACount:Integer):string; //(源字符串，开始字符串，开始字符串后面几个字符)
var
in_star:integer;
begin
in_star:=AnsiPos(strbegin,strsource)+length(strbegin);
result:=copy(strsource,in_star,ACount);
end;
//方法2
uses StrUtils;
首部 function MidStr(const AText: string; const AStart, ACount: Integer):
string; $[StrUtils.pas
功能 返回字符串AText从AStart开始的ACount个字符
说明 其实就是Copy
参考 function System.Copy
例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);
//去掉字符串中空格
Trim()去掉字符串左右两边的空格和控制符，它的使用语法如下：
function Trim(const S: string): string;
TrimLeft()用于去除字符串左边的空格，它的使用方法如下：
function TrimLeft(const S: string): string;
TrimRight()用于去除字符串右边的空格，它的使用方法如下：
function TrimRight(const S: string): string;
UpperCase()：将字符串小写转为大写
LowerCase()将大写转为小写
相关阅读 >>
Delphi webbrowser同时访问两个网址导致程序出错的解决办法
更多相关阅读请进入《Delphi》频道 >>
