
11.04.2014, 09:42
|
 |
Профессионал
|
|
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
|
|
Цитата:
Сообщение от Ahton
Код для примера можете показать?
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
sl: TStringList;
str: String;
begin
sl := TStringList.Create;
try
sl.LoadFromFile('Имя файла'); // Читаем текстовый файл
if sl.Count >= 2 then // Если в нём не менее двух строк
begin
str := sl[sl.Count - 2]; // Считываем вторую снизу строку
.....; // Производим нужные изменения с этой строкой в переменной str
sl[sl.Count - 2] := str; // Записываем назад изменённую строку
end;
sl.SaveToFile('Имя файла'); // Сохраняем текстовый файл
finally
sl.Free;
end;
end;
|