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()将大写转为小写