循环取字符串的问题.(100)

有一个MEMO1,里面内容为 sdjfjpsgskloof AA=qwert BB=001.A FKSLFKLSFKLFLSFKLSFSKLFSKLSLDSKLFKSLFLSFLS AA=TYUIO BB=002.A DSADADADADASDASDAASDADADADADAS AA=DFSSF BB=004.A SDASDDDDSD 其中 AA=***** BB=***.A 除了星号部分位数不确定外,其他都是有规律的,如何循环取出得到以下结果 qwert 001 TYUIO 002 DFSSF 004

function GetNeedData(AStr:String):String;var IntA,IntB,K:Integer;begin Result:=''; while AStr<>'' do begin IntA:=Pos('AA=',AStr); if IntA<=0 then Break; System.Delete(AStr,1,IntA+2); K:=Pos(' ',AStr); IF K>0 then begin Result:=Result+#13#10+Copy(AStr,1,K-1); System.Delete(AStr,1,K) end else begin Result:=Result+#13#10+AStr; AStr:=''; end; IntB:=Pos('BB=',AStr); if IntB<=0 then Break; System.Delete(AStr,1,IntB+2); K:=Pos('.A',AStr); IF K>0 then begin Result:=Result+' '+Copy(AStr,1,K-1); System.Delete(AStr,1,K) end else begin Result:=Result+' '+AStr; AStr:=''; end; end; system.Delete(Result,1,2);end;

把分给 znxia 吧，不辞劳苦。真努力呀。

辛苦了，放分感谢