Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.27;
Скачать: CL | DM;

Вниз

Как это самое... удалять из файла???   Найти похожие ветки 

 
Василий2 ©   (2002-12-10 18:42) [0]

Нужно сделать прогу, которая смотрит в файл и если находит определенный символ, то удаляет его (при этом длина файл уменьшается). Так вот как это сделать, какая функция за это отвечает?


 
Unknown user ©   (2002-12-10 20:30) [1]

Для текстовых файлов это проще всего сделать так.
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");


 
Василий2 ©   (2002-12-11 12:44) [2]

Файл как раз не текстовый!


 
Song ©   (2002-12-11 13:11) [3]

Нет такой ф-ии. Всё делается ручками..


 
Василий2 ©   (2002-12-11 15:10) [4]

Тогда как это сделать ручками?


 
Smashich ©   (2002-12-11 20:55) [5]

создаешь 2 образа файла и копируешь в один сам файл а во второй копию первого но пропуская символы ненужные...



Страницы: 1 вся ветка

Текущий архив: 2003.01.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-86927
waw
2003-01-16 16:27
2003.01.27
TIdCoderMD5


4-87188
Youri
2002-12-11 11:16
2003.01.27
Неужели никто не знает?!!!Telephony API header translation!


1-86834
gez
2003-01-18 15:32
2003.01.27
Помогите с гридом


3-86631
CAMOBAP
2003-01-10 08:43
2003.01.27
Обращение к Query через цикл


1-86861
jiura
2003-01-19 19:40
2003.01.27
РУсский язык в Delphi