Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 02.01.2011, 00:20   #1
misher
Профессионал
 
Аватар для misher
 
Регистрация: 26.05.2010
Адрес: Минск
Сообщений: 1,651
Репутация: 614

icq: 609299866
skype: misher666
Подмигивание Сохранить в текстовый файл текст из Memo и текст из нескольких Edit

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.FileName + '.txt'); // здесь сохраняться с memo будет, а надо так, как в низу написано...
end;
end.

Как зделать так, чтобы при сохранении в файл сохранялось так, что с начала идёт N-ый текст, а потом запись с Edit-а, потом ещё текст и снова концовка с Edit-а?
__________________
This world will never be What I expected (c)
misher вне форума   Ответить с цитированием
Старый 02.01.2011, 00:29   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,613
Репутация: 5352
По умолчанию

1) ответ - через TFileStream можно писать что угодно и как угодно... в любой последовательности...
или, старый "дедовский" способ - через BlockWrite()


исправил название темы...

Последний раз редактировалось Serge_Bliznykov; 02.01.2011 в 01:54.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 02.01.2011, 02:54   #3
Пепел Феникса
Модератор
Заслуженный модератор
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Адрес: Москва
Сообщений: 20,997
Репутация: 3402

icq: 446843180
skype: phoenix_proger
По умолчанию

сформируй свой текст в TStringList временном и с него и сохрани.
__________________
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума   Ответить с цитированием
Старый 02.01.2011, 16:26   #4
misher
Профессионал
 
Аватар для misher
 
Регистрация: 26.05.2010
Адрес: Минск
Сообщений: 1,651
Репутация: 614

icq: 609299866
skype: misher666
По умолчанию

Решил через TStringList
Код:

procedure TForm1.sButton3Click(Sender: TObject);
var
text : TStringList;
begin
text:=TStringList.Create;
text.Add('Text');
text.Add('Text' + sEdit1.Text);
text.Add('Text' + sEdit2.Text);
if sSaveDialog1.Execute then
end;

А как дальше его сохранить?
__________________
This world will never be What I expected (c)
misher вне форума   Ответить с цитированием
Старый 02.01.2011, 16:32   #5
Valio
Сливочное масло
Профессионал
 
Аватар для Valio
 
Регистрация: 01.01.2011
Адрес: В холодильнике
Сообщений: 1,149
Репутация: 127
По умолчанию

У него есть метод SaveToFile.
Valio вне форума   Ответить с цитированием
Старый 02.01.2011, 16:37   #6
misher
Профессионал
 
Аватар для misher
 
Регистрация: 26.05.2010
Адрес: Минск
Сообщений: 1,651
Репутация: 614

icq: 609299866
skype: misher666
По умолчанию

Цитата:
У него есть метод SaveToFile.
Спасибо, все работает.
__________________
This world will never be What I expected (c)
misher вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Скопировать текст из Edit в нужную стоку в Memo xitroi Помощь студентам 2 09.11.2010 23:23
Дан файл, содержащий текст, записанный строчными русскими буквами. Получить в др.файле тот же текст, develish151 Microsoft Office Word 4 05.05.2010 13:20
как сохранить текст? blackstersl Общие вопросы Delphi 6 17.06.2009 21:06
Сохранить текст в массиве lubafffka Паскаль 2 06.11.2008 13:39
В Memo сделать так, чтобы текст был разного цвета, разноцветный memo Artem Компоненты Delphi 3 07.09.2007 13:40


09:08.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru