Вернуться   Форум Рубцовска > Городской Интернет > Программирование > Pascal/Delphi
+16°Давление 731
Влажность 98%
Ветер 2 м/с С-В
Комфорт +16°

Ответ
 
Опции темы Опции просмотра
  #21  
Старый 14.02.2012, 15:38
Аватар для Hex
Hex Hex вне форума
Подполковник
 
Регистрация: 24.08.2006
Адрес: Новосибирск
Сообщений: 3,424
Спасибо: 3,620
По умолчанию

В этом случае лучше использовать паскалевский доступ к файлам и файл открывать для дозаписи.
__________________
В человеческой натуре заложено доверять, особенно когда просьба кажется обоснованной. (K.Mitnick)

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

"Есть 5-7 дорог по которым можно ездить" © hjj

Ответить с цитированием
  #22  
Старый 14.02.2012, 15:45
altay_groop altay_groop вне форума
Подполковник
 
Регистрация: 13.12.2008
Сообщений: 3,728
Спасибо: 1,433
По умолчанию

Цитата:
Сообщение от CJIOH Посмотреть сообщение
так не получится - SaveToFile перезаписывает содержимое файла. Вот так нужно:

Код:
procedure TForm1.N3Click(Sender: TObject);
var sl: TStringList;
begin
    if dlgSave1.Execute then
    begin
        sl := TStringList.Create;
        sl.AddStrings(Memo1.Lines);
        sl.AddStrings(Memo2.Lines);
        sl.SaveToFile(dlgSave1.FileName);
        sl.Free;
    end;
end;
точняк - работает, спасибо большое!!!
Ответить с цитированием
  #23  
Старый 14.02.2012, 15:52
CJIOH CJIOH вне форума
Капитан
 
Регистрация: 19.09.2006
Адрес: Новосибирск
Сообщений: 1,879
Спасибо: 1,719
По умолчанию

Цитата:
Сообщение от Hex Посмотреть сообщение
В этом случае лучше использовать паскалевский доступ к файлам и файл открывать для дозаписи.
нафиг. тогда уж так:

Код:
procedure TForm1.N3Click(Sender: TObject);
var fs: TFileStream;
begin
    if dlgSave1.Execute then
    begin
        fs := TFileStream.Create;
        Memo1.Lines.SaveToStream(fs);
        Memo2.Lines.SaveToStream(fs);
        fs.Free;
    end;
end;
__________________
Ответить с цитированием
  #24  
Старый 14.02.2012, 16:34
Аватар для Hex
Hex Hex вне форума
Подполковник
 
Регистрация: 24.08.2006
Адрес: Новосибирск
Сообщений: 3,424
Спасибо: 3,620
По умолчанию

Цитата:
Сообщение от CJIOH Посмотреть сообщение
нафиг. тогда уж так:

Код:
procedure TForm1.N3Click(Sender: TObject);
var fs: TFileStream;
begin
    if dlgSave1.Execute then
    begin
        fs := TFileStream.Create;
        Memo1.Lines.SaveToStream(fs);
        Memo2.Lines.SaveToStream(fs);
        fs.Free;
    end;
end;
Поток? как вариант
__________________
В человеческой натуре заложено доверять, особенно когда просьба кажется обоснованной. (K.Mitnick)

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

"Есть 5-7 дорог по которым можно ездить" © hjj

Ответить с цитированием
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +7, время: 04:01.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. Перевод: zCarot