[killerkill]

Как стереть нужную строку в текстовом файле?
тоесть:

например надо убрать 2 строку(Полностью!)(всего например 3 строки)

было
1:Привет
2:Как дела?
3:Как жизнь

стало
1:Привет
2:Как жизнь
3:

спасибо..

[Aristarh Dark]

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);

[killerkill]

немного не то....
нужно напрямую(программно) удалить нужную строку из файла.

[Aristarh Dark]

А как назвать приведенный мной метод, если не "программный"?
И что значит - напрямую?

[killerkill]

Напрямую - значит без лишних компонентов, например: TStringList

[killerkill]

но всё равно, кроме твоего способа не вижу не чего!

[Winny]

TStringList чтоб ты знал, не сторонний компонент, а тип переменной, который встроен изначально в Delphi.

[mav_c]

Сообщение от Winny

TStringList чтоб ты знал, не сторонний компонент, а тип переменной, который встроен изначально в Delphi.

Ну с типом переменной ты загнул

[killerkill]

ДОШЛО! чё-то я ...

теперь я всё понял, спасибо большое...