| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как это самое... удалять из файла???
Василий2 © (2002-12-10 18:42:00)Нужно сделать прогу, которая смотрит в файл и если находит определенный символ, то удаляет его (при этом длина файл уменьшается). Так вот как это сделать, какая функция за это отвечает?
Smashich (2002-12-11 20:55:00) [1]создаешь 2 образа файла и копируешь в один сам файл а во второй копию первого но пропуская символы ненужные...
Василий2 (2002-12-11 15:10:00) [2]Тогда как это сделать ручками?
Song (2002-12-11 13:11:00) [3]Нет такой ф-ии. Всё делается ручками..
Василий2 (2002-12-11 12:44:00) [4]Файл как раз не текстовый!
Unknown user (2002-12-10 20:30:00) [5]Для текстовых файлов это проще всего сделать так.
MyStrings.LoadFromFile("FileName");
while RowInd<MyStrings.Count do begin
while Pos(FindSymb,Str)=0 do
//Склеиваем строку без найденного символа
//можно использовать ReplaceText
MyStrings[RowInd]:=Copy(MyStrings[RowInd],
1,
Pos(FindSymb,MyStrings[RowInd])-1)+
Copy(MyStrings,RowInd],
Pos(FindSymb,MyStrings[RowInd])+1,
Length(MyStrings[RowInd])-
Pos(FindSymb,MyStrings[RowInd]));
Inc(RowInd);
end;
MyStrings.SaveToFile("FileName");
| |
