Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Файловая система \ Файлы \ Заменяем текст в текстовом файле

Заменяем текст в текстовом файле

procedure FileReplaceString(const FileName, searchstring, replacestring: string); 
var 
  fs: TFileStream; 
  S: string; 
begin 
  fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone); 
  try 
    SetLength(S, fs.Size); 
    fs.ReadBuffer(S[1], fs.Size); 
  finally 
    fs.Free; 
  end; 
  S  := StringReplace(S, SearchString, replaceString, [rfReplaceAll, rfIgnoreCase]); 
  fs := TFileStream.Create(FileName, fmCreate); 
  try 
    fs.WriteBuffer(S[1], Length(S)); 
  finally 
    fs.Free; 
  end; 
end;

Название: Заменяем текст в текстовом файле
Дата публикации: 2004-06-15 (3824 Прочтено)

 
 

 

Page generation 0.035 seconds