To TyZhang:
看来你还没明白过来,我给你举一个我要应用的例子吧:
我有一个表专门用来存储不同报表取数据源的SQL语句。即有一个Text类型的
字段专门存储:“ Select * from TableName inner join ..... where
DepartID='10' and bm='20' "的语句。
我要把它显示在TMeno控件中,以便于客户修改。实际上,我正结合Excel做一个
报表管理模块。如果实在不行,只好自己编一个函数进行来回转换了。
给你一个函数。
function CheckSQM(sSQL: string): string;
var i:integer;
schar;
begin
s:=pChar(sSQL);
for i:=0 to Length(s)-1 do
begin
if s='''' then
Result:=Result+s+''''
else
Result:=Result+s;
end;