UE 查找和替换

今天07/06/2005
昨天07/05/2005
明天07/08/2005

查找内容：^([0-9][0-9]^)/^([0-9][0-9]^)/^(200[0-9]^)
替换为:       ^3^1^2

今天20050706
昨天20050705
明天20050708

ParamByName('C_AGENCYNO').AsString:=Trim(copy(s,42,3));     

查找内容：^(Trim(copy(*))^)
替换为:^1;^pShowMessage(^1)

ParamByName('C_AGENCYNO').AsString:=Trim(copy(s,42,3));
ShowMessage(Trim(copy(s,42,3)));