[Myrik]

Как записать в файл всё содержимое Memo (например 4 строчки), а потом считать его из файла? При этом надо учесть, что в файле уже есть информация

[Mrak]

юзай поиск, не ленись
http://yandex.ru/yandsearch?text=%D1...+delphi&lr=213 например

[Myrik]

я всё время нахожу что-то вроде:

Код:

memo1.lines.SaveToFile('тут имя файла');

но мне это вообще никак не подходит

[Mrak]

а я нашел почему-то
http://www.cyberforum.ru/delphi-begi...ead724459.html

[Myrik]

про считывание тут нету

[Alegun]

Это смотря к чему надо инфу дописывать, или из мемо к сохранке или сохранку к содержимому мемо, в любом случае с помощью экземпляра TStrings нужно загрузить файл, после чего добавить инфу из мемо или в начало или в конец с последующим сохранением. Пять строчек кода всего.

[Myrik]

надо из мемо уже к сохраненному добавить
в общем записываю вот таким образом:

Код:

  SaveDialog1.InitialDir:='D:\';
  SaveDialog1.Filter:='Текстовые файлы|*.txt';
  if SaveDialog1.Execute then
    begin
       AssignFile(f,SaveDialog1.FileName+'.txt');
       Rewrite(f); 
       for i:=1 to Memo1.Lines.Count do
         begin
            Writeln(f, Memo1.Lines[i-1]);
        end;
     CloseFile(f);
   end;

а как назад вытащить не знаю

[Alegun]

Проверьте только, а то без делфи, по памяти написано

Код:

if FileExists(SaveDialog1.FileName) then
 with TStringList.Create do
  begin
    LoadFromFile(SaveDialog1.FileName);
    AddStrings(Memo1.Lines);
    SaveToFile(SaveDialog1.FileName);
    Free;
  end else
 Memo1.Lines.SaveToFile(SaveDialog1.FileName);