Бвстрая замена символа на символ

← →
RomanH © (2007-09-11 12:56) [0]

Здраствуйте мастера.
Для замены символа на символ, использую эту функцию:
function AnsiReplaceStr(const AText, AFromText, AToText: string): string;
Вопрос: а существуют ли более быстрые функции для замены символа на символ. Или же надо на assemblerе написать?
P.S. Эта функция будет использоваться для создания UDF в FireBird.

← →
Palladin © (2007-09-11 13:19) [1]

Function ReplaceChar(c1,c2:Char;Const s:String):String;
Var
i:Integer;
Begin
Result:=s;
For i:=1 to Length(Result) Do
If Result[i]=c1 Then Result[i]:=c2;
End;

Бвстрая замена символа на символ Найти похожие ветки