Показать сообщение отдельно

  #3  
Старый 17.11.2009, 20:46
Sams
Участник форума
Регистрация: 18.04.2009
Сообщений: 120
С нами: 8981650

Репутация: 80
По умолчанию

Ты конкретней напиши, что тебе надо

Цитата:
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils, Classes;

var
text: TStringList;

begin
text:=TStringList.Create;
text.LoadFromFile('e:\1.txt'); //путь к файлу
text.Delete(12-1); // -1 потому, что нумерация строк начинается с 0, а не с 1
text.Insert(12-1, 'Новая строка');
text.SaveToFile('e:\1.txt'); //путь к файлу
text.Free;
end.
1. Записываем в переменную TStringList текст файла.
2. Удаляем 12-ую строку.
3. Вставляем на ее место строку с новым содержимым.
4. Сохраняем файл, заменяя старый.

Последний раз редактировалось Sams; 17.11.2009 в 20:52..
 
Ответить с цитированием