
17.11.2009, 20:46
|
|
Участник форума
Регистрация: 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..
|
|
|