| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как удалить строку из файла? [D6]

Makssim ©   (2004-08-18 14:50:00) 

сабж. Файл текстовый

---

Makssim   (2004-08-18 14:55:00) [1]

ssk ©   (18.08.04 14:52) [1]
благодарю

---

ssk   (2004-08-18 14:52:00) [2]

примерно так:

function RemoveLine(FileName: Shortstring; LineNumber: integer): boolean;
var
 List: TStrings;
begin
 List:=TStringList.Create;
 try
   List.LoadFromFile(FileName);
   List.Delete(LineNumber);
   List.SaveToFile(FileName);
   Result:=True;
 except
   Result:=False;
 end;
 List.Free;
end;

нумерация строк начинается с 0

---

Наверх