如何取得指定字符串(50分)

如何取得某一个字符的以后或以前的字符，例如1=e:/ww.exe我想取“=”以后的字符e:/ww.exe如体做,多谢!!!

把上面1=e:/ww.exe整体看作一个string，用下面的方法：
var
tStr,sStr :String
tPos :integer;
begin
tStr:='1=e:/ww.exe';
tPos :=Pos ('=',tStr);
sStr :=copy(tStr,tPos+1,length(tStr)-tPos);
end;

var
ss,ss1:string;
i:integer;
begin
ss:="1=e:/ww.exe";
ss1:='';
for i:=1 to length(ss) do
begin
if ss="=" then
ss1:=''
else
ss1:=ss1+ss;
end;
end;

最后ss1就是你要的结果

function GetStrDiv(Source,DivStr:String;HeadTail:Boolean):String;
var //HeadTail: true-获得指定字符串之前的部分 false-...之后...
Loc:Integer;
begin
Result:='';
Loc:=Pos(DivStr,Source);
if Loc>0 then
if HeadTail then
Result:=Copy(Source,1,Loc-1)
else
Result:=Copy(Source,Loc+Length(DivStr),Length(Source));
end;

to all:
yb_unique最简单，分配没什么问题吧！