Бвстрая замена символа на символ [D7, XP]
RomanH © (2007-09-11 12:56:00)
Здраствуйте мастера.
Для замены символа на символ, использую эту функцию:
function AnsiReplaceStr(const AText, AFromText, AToText:
string): string;
Вопрос: а существуют ли более быстрые функции для замены
символа на символ. Или же надо на assemblerе написать?
P.S. Эта функция будет использоваться для создания UDF в
FireBird.
Palladin (2007-09-11 13:19:00) [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;
Наверх 
ЧАТ |
Орешник |
|
