怎么把ACCESS中的函数包到单元中?(着急啊!等着你给俺解答)

Question

我用ADOQuery时用到了Replace函数,这个Replace在ACCESS中可用,但是,我拿到Delphi中,把它写道ADOQuery的SQL里就不行了,告诉说Repalce没有定义.其中数据库连接的是ACCESS数据库,用的是ADOConnection.
各位帮俺解决解决啊!

Answer 1

自己写个Replace函数
给个参考
function ReplaceSubString(AString, ASubStr1, ASubStr2: string): string;
var
  aPos: Integer;
  Rslt: string;
begin
  aPos := Pos(ASubStr1, AString);
  rslt := '';
  while (aPos <> 0) do
  begin
    Rslt := Rslt + Copy(AString, 1, aPos - 1) + ASubStr2;
    Delete(AString, 1, aPos);
    aPos := Pos(ASubStr1, AString);
  end;
  Result := Rslt + AString;
end;

Answer 2

晕，是access不支持这个函数啊，你在DELPHI里面再怎么写函数还是空扯
你要实现的是什么，代码贴出来看看