笨办法。
function CenterStr(Src:String;Before,After:String):String;
var
Pos1,Pos2:WORD;
begin
Pos1:=Pos(Before,Src)+Length(Before);
Pos2:=Pos(After,Src);
Result:=Copy(Src,Pos1,Pos2-Pos1);
end;
打开xml文件后
Form1.Caption:=CenterStr(xml文件数据,'<Title>','</title>');
要是有NNNN个变量那么操作时间也就多了NNN微秒，要是你在286机器上运行要多个NNN分钟。
我没用过xml文件可以不用xml格式来写如：
<title>中国人的软件</title>
