下面代码错在哪(2006下运行正常，2007下面产生如下错误)

Question

procedure TAdoMacroQry.ExpandMacros;
var i :integer;
tsSQL,tsValue :string;
begin
tsSQL :=FMacroSQL.GetText();
for i :=FMacroParams.Count -1 downto 0 do
    begin
     case FMacroParams[i].DataType of
         ftDate: tsValue :=''''+ FormatDatetime('yyyy-mm-dd', FMacroParams[i].Value) +'''';
            else tsValue :=FMacroParams[i].Value;
        end;
     tsSQL :=StringReplace(tsSQL, ':'+FMacroParams[i].Name
         , tsValue, [rfReplaceAll, rfIgnoreCase]);
    end;
inherited SQL.SetText(PChar(tsSQL));end;错误提示：incompatible types:'char' and 'widechar'怎么解决

Answer 1

tsSQL,tsValue 声明成widestring

Answer 2

SetText参数类型要求是什么，改成PwideChar(tsSQL）试试