Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.013 c