SQL Problem mit Interbase

[MrSpock]

Hallo Touchdown,

eine Lösung hab ich noch: UDF (user defined functions):

Delphi-Quellcode:

function MYTRANSLATE(value, old, new: PChar): PChar; cdecl;
{
DECLARE EXTERNAL FUNCTION MyTranslate
CString(50), CString(50), CString(50)
RETURNS CString(50) FREE_IT
ENTRY_POINT 'Translate' MODULE_NAME 'MyUDF'
}
var
   sValue, sOld, sNew : String;
   i, posi : Integer;
begin
   Result := value;
   sValue := String(value);
   sOld := String(old);
   sNew := String(new);

   for i := 1 to length(sValue) do
   begin
      posi := Pos(sValue[i], sOld);
      if posi > 0 then
         sValue[i] := sNew[posi];
   end;
   StrPCopy(Result, sValue);
end;