|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как стереть нужную строку?
Как стереть нужную строку в текстовом файле?
тоесть: например надо убрать 2 строку(Полностью!)(всего например 3 строки) было 1:Привет 2:Как дела? 3:Как жизнь стало 1:Привет 2:Как жизнь 3: спасибо.. |
#2
|
||||
|
||||
1.Загрузи файл в TStringList.
2.Удали то что требуется. 3.Запиши с тем же именем на диск. Как это будет выглядеть в коде: Код:
function DelSomeLine(aFileName:TFileName;LineIndex:Integer):boolean; { Удаляет строку с номером LineIndex (отсчет с нуля) из текстового файла aFileName } var sl:TStringList; begin Result:=false; if FileExists(aFileName) then begin sl:=TStringList.Create; try sl.LoadFromFile(aFileName); if LineIndex<=sl.Count-1 then begin sl.Delete(LineIndex); sl.SaveToFile(aFileName); Result:=true; end; finally sl.Free; end; end; end; Код:
DelSomeLine('C:\text.txt',3); |
#3
|
|||
|
|||
немного не то....
нужно напрямую(программно) удалить нужную строку из файла. |
#4
|
||||
|
||||
А как назвать приведенный мной метод, если не "программный"?
И что значит - напрямую? |
#5
|
|||
|
|||
Напрямую - значит без лишних компонентов, например: TStringList
|
#6
|
|||
|
|||
но всё равно, кроме твоего способа не вижу не чего!
|
#7
|
||||
|
||||
TStringList чтоб ты знал, не сторонний компонент, а тип переменной, который встроен изначально в Delphi.
|
#8
|
||||
|
||||
Цитата:
--------------------------------------------- Программирование - не профессия, а стиль жизни |
#9
|
|||
|
|||
ДОШЛО! чё-то я ...
теперь я всё понял, спасибо большое... |