VPF::Сохранить Memo в txt - Форум программистов

Балбес

Дата 12.2.2005, 22:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.8.2004

Репутация: нет
Всего: нет

нужно сохранить Memo в 1.txt, так чтобы файл не переписывался заново, а то, что есть в Memo заново добавлялось к тому что есть в 1.txt...
(надеюсь понятно выразился...)

Это, блин не подходит: Memo1.SaveToFile('1.txt')

smile

Marriage

Дата 12.2.2005, 23:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 842
Регистрация: 4.5.2004
Где: Таганрог

Репутация: нет
Всего: 2

А соображалку включить ???? smile

НАпример ...
Кидаеешь на форму MEMO2, делаешь ему VISIBLE = FALSE

MEMO2.LoadFromFile ....
Memo2.Lines.AddStrings(MEMO1.LInes)
MEMO2.SaveToFile ....

Правильнее было бы создать динамически мемо2 smile

--------------------

Praemonitus, praemunitus

dvs

Дата 12.2.2005, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Владимир Драпалюк

Профиль
Группа: Участник Клуба
Сообщений: 660
Регистрация: 25.8.2003
Где: Воронеж->Москв а

Репутация: нет
Всего: 19

Код


var

  f: TextFile;
begin
  if OpenDialog1.Execute then
  begin                    { open a text file }
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, 'I am appending some stuff to the end of the file.'); 
    { insert code here that would require a Flush before closing the file }
    Flush(f);  { ensures that the text was actually written to file }
    CloseFile(f);
  end;

end;

А так подходит smile

--------------------

Любите друг друга!

<Spawn>

Дата 13.2.2005, 07:20 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Или так:

Код


procedure TForm1.Button4Click(Sender: TObject);
var
  MemoryStream: TMemoryStream;
begin
  MemoryStream := TMemoryStream.Create;
  try
    Memo1.Lines.SaveToStream(MemoryStream);
    with TFileStream.Create(ExtractFilePath(ParamStr(0)) + '1.txt', fmOpenReadWrite) do
    try
      Seek(Size, soBeginning);
      MemoryStream.Position := 0;
      CopyFrom(MemoryStream, MemoryStream.Size);
    finally
      Free;
    end;
  finally
    FreeAndNil(MemoryStream);
  end;
end;

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Vit

Дата 13.2.2005, 08:00 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

В FAQ Есть статья - "Всё о файлах"

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Балбес

Дата 13.2.2005, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 19.8.2004

Репутация: нет
Всего: нет

Marriage
соображалку включить не получается - я ж Балбес smile

dvs15
<Spawn>
спасибо всем, попробую...

Vit smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »