Показать сообщение отдельно
  #4  
Старый 11.04.2014, 09:42
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 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;
Ответить с цитированием