Текущий архив: 2007.10.07;
Скачать: 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 вся ветка
Текущий архив: 2007.10.07;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.017 c
