|
#1
|
|||
|
|||
Замена
Как заменить строку или подстроку в открытом файле?
|
#2
|
||||
|
||||
Код:
{ **** UBPFD *********** by delphibase.endimus.com **** >> Замена в строке всех вхождений одной подстроки, на другую Зависимости: - Автор: Евгений Валяев (RhinoFC), rhinofc@sniiggims.ru, ICQ:55263922, Новосибирск Copyright: RhinoFC Дата: 5 июня 2002 г. ***************************************************** } function StrReplace(const Str, Str1, Str2: string): string; // str - исходная строка // str1 - подстрока, подлежащая замене // str2 - заменяющая строка var P, L: Integer; begin Result := str; L := Length(Str1); repeat P := Pos(Str1, Result); // ищем подстроку if P > 0 then begin Delete(Result, P, L); // удаляем ее Insert(Str2, Result, P); // вставляем новую end; until P = 0; end; |