Цитата:
|
Сообщение от NumLock
Код:
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; |
Ага, только на больших объемах текста эта штука работает очень медленно. Надо конкретно смотреть задачу. Если надо менять символы, то лучше пройти по строке, как по массиву. Если слова, то надо делать небольшой парсер.
Для символов. Пусть надо менять a на b и c на d:
Код:
function MyCharReplace(S : String) : String;
var
I : Integer;
begn
Result := S;
For I := 1 To Length(S) Do
Case S[i] Od
'a' : S[i] := 'b';
'c' : S[i] := 'd';
End;
end;
Данный код работает только для замены одних символов на другие, если надо менять слова или менять на слова, то код будет другой.