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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 01.01.2011, 23:20   #1
misher
Участник клуба
 
Аватар для misher
 
Регистрация: 26.05.2010
Сообщений: 1,648
Подмигивание Сохранить в текстовый файл текст из 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 вне форума Ответить с цитированием
Старый 01.01.2011, 23:29   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

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


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

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

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

Решил через 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, 15:32   #5
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

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

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


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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