StringReplace 的Flags: TReplaceFlags

Question

var flag:TReplaceFlags 
begin 
flg:= [rfReplaceAll]; //加上 
str1 := StringReplace(str, '123', '789', flag); 
end;
上述代码编译时出现 incompatible type 的出错，
不知why?

Answer 1

var flag:TReplaceFlags; //上面少写了一个分号，是手误吧 
begin 
flag:= [rfReplaceAll]; //上面少写了一个a，是手误吧
str1 := StringReplace(str, '123', '789', flag); 
end;上述代码在Win2000 pro + Delphi 6 编译通过，结果正确。所以你的程序应该没错，你确定是这一部分的错误吗？

Answer 2

var flag:TReplaceFlags 
begin 
flg:= [RfReplaceAll]; //加上 注意RfReplaceAll 中的R大写
str1 := StringReplace(str, '123', '789', flag); 
end;

Answer 3

这是delphi5。0的bug吧~帮助里是小写~

Answer 4

//这样写不是一样？
str1 := StringReplace(str, '123', '789', [rfReplaceAll]); //主要是看看你的str1或str是什么类型？
//"incompatible type"也许指str1或str