[ART]

Как заменить строку или подстроку в открытом файле?

[Admin]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

{ **** 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;