| 
| 
 | Вопрос # 5 631/ вопрос открыт / | 
 |  Здравствуйте!как в Delphi осуществить следующую операцию:
 нужно что бы текст из поля Edit сохранялся в текстовый документ (TXT файл) в определенной строке, например в третьей.
 как такое осуществить?
 допустим я хочу описать это в обработчике button
 
|  |   Вопрос задал: Paroonalitik (статус: Посетитель)Вопрос отправлен: 9 сентября 2011, 18:37
 Состояние вопроса: открыт, ответов: 1.
 |  Ответ #1. Отвечает эксперт: Вадим К Здравствуйте, Paroonalitik!Где то так
 
 var sl:TStringList;
begin
  sl := TStringList.create;
  try
    sl.loadfromfile('имяфайла');
    if sl.count < 2 then begin
      ShowMessage('в файле слишком мало строк!');
      exit;
    end else if sl.count = 2 then
      sl.add(edit1.text)
    else
      sl[3] := Edit1.text;
    sl.savetofile('имяфайла');
  finally
    sl.free;
  end;тут делается предположение, что если в файле 2 строки, то "вставить третью" - это просто дописать ее. Если же в файле одна строка, то выполнить задачу нельзя (либо придется добавлять одну пустую строку).
|  | Ответ отправил: Вадим К (статус: Академик)Время отправки: 9 сентября 2011, 18:45
 Оценка за ответ: 5
 Комментарий к оценке: спасибо, но я поправлю...в строке:
 sl[3] := Edit1.text;
 надо sl[3-1]
 отчет с нуля
 |  
 Мини-форум вопросаВсего сообщений: 0. 9 сентября 2011, 18:39: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с файловой системой модератором Ерёмин А.А. Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте. |