Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.10.2009, 10:27   #1
мимо
Пользователь
 
Регистрация: 13.06.2009
Сообщений: 61
По умолчанию Сохранение файла из TStringList

Подскажите про сохранении файла.
Сохраняю я так из TStringList
Код:
end.SaveToFile(Edit1.Text+'\файл.txt')
как осуществить проверки:
- если такой файл ('файл.txt') существует, то записать в конец этого файла.

Последний раз редактировалось мимо; 02.10.2009 в 14:49.
мимо вне форума Ответить с цитированием
Старый 02.10.2009, 10:34   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
если такой файл ('файл.txt') существует
Код:
IF FileExists(Путь к файлу) thne Существует такой файл
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 02.10.2009, 14:51   #3
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,847
По умолчанию

Цитата:
Сообщение от мимо
записать в конец этого файла.
Для записи в конец, можно загрузить данный файл в другой TStringList, затем их объединить и сохранить в файл.
Arigato вне форума Ответить с цитированием
Старый 02.10.2009, 15:27   #4
Daramant
Форумчанин
 
Регистрация: 06.01.2009
Сообщений: 340
По умолчанию

Цитата:
Для записи в конец, можно загрузить данный файл в другой TStringList, затем их объединить и сохранить в файл.
Загружать файл не стоит, зачем делать лишние действия.
Лучше сделать так:
Код:
var
  FileName: String;
  fstrm: TFileStream;
  strlst: TStringList;
  Mode: Word;
begin
  strlst := TStringList.Create;
  try
    // add data to stringlist
    strlst.Add('1');
    strlst.Add('2');
    strlst.Add('3');

    FileName := 'data.txt';
    if FileExists(FileName) then
      Mode := fmOpenWrite
    else
      Mode := fmCreate;

    fstrm := TFileStream.Create(FileName, Mode);
    try
      fstrm.Seek(0, soFromEnd);
      strlst.SaveToStream(fstrm);
    finally
      fstrm.Free;
    end;
  finally
    strlst.Free;
  end;
end;
Истинный успех – это то, что Вы сделали в сравнении с тем, что могли бы сделать.
Никогда не бойся делать то, что ты не умеешь. Помни, ковчег был построен любителем. Профессионалы построили "Титаник".
Daramant вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Открытие/сохранение файла НеВа6464 Microsoft Office Excel 4 01.06.2009 14:06
Сохранение файла KREGI Помощь студентам 4 30.03.2009 21:09
сохранение php файла CopTupoBo4Huk PHP 5 10.09.2008 22:55
Сохранение файла Македонский Общие вопросы Delphi 7 17.08.2007 08:35
СОХРАНЕНИЕ В 23 ФАЙЛА ПОДРЯД!!!! _FL@ER_ Помощь студентам 6 26.06.2007 22:31