![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как сохранить в .txt [D7]
b86 © (2008-05-06 21:14:00)Как сохранить текст в .txt?
Anatoly Podgoretsky (2008-05-06 22:19:00) [1]> b86 (06.05.2008 22:15:29) [29]
В справку, там и примеры есть.
DVM (2008-05-06 22:18:00) [2]
> b86 (06.05.08 22:15) [29]
procedure TForm1.Button1Click(Sender: TObject);
begin
SaveDialog1.DefaultExt := 'txt';
SaveDialog1.Filter := 'Text File (*.txt)|*.txt';
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
{RASkov} (2008-05-06 22:17:00) [3]'Текстовые файлы(*.txt)|*.txt'
b86 (2008-05-06 22:15:00) [4]про настроить фильтр в SaveDialog. В обоих столбцах выставвил txt. и как-то не чё...
Сергей М. (2008-05-06 22:00:00) [5]
> что бы он
Кто "он", Пушкин что ли ?
DVM (2008-05-06 21:58:00) [6]
> Как сделать, что бы он спрашивал куда сохранять и как файл
> назвать?
В цикл вошли.
b86 (2008-05-06 21:54:00) [7]э нет! я ещё не закончил! Как сделать, что бы он спрашивал куда сохранять и как файл назвать?
Сергей М. (2008-05-06 21:52:00) [8]Окончили, как и всегда, за упокой)
b86 (2008-05-06 21:49:00) [9]точно. я когда пробовал путь не указал! тупень(я!). Спасибо!
Сергей М. (2008-05-06 21:49:00) [10]
> Не забудь фильтр настроить в SaveDialog
Ты такой веселый)
DVM (2008-05-06 21:46:00) [11]1) Кладешь на форму SaveDialog с закладки Dialogs.
2)
procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end;
Не забудь фильтр настроить в SaveDialog
Сергей М, (2008-05-06 21:45:00) [12]
> b86 (06.05.08 21:41) [20]
И чего ты телишься ?
Тебе ж еще в [3] дали вариант для мемо
b86 (2008-05-06 21:41:00) [13]memo
Сергей М, (2008-05-06 21:38:00) [14]
> {вот здесь что написать?}
Ничего не надо.
Это самое "вот здесь" и так уже находится в текстовом файле.
DVM (2008-05-06 21:38:00) [15]
> b86 (06.05.08 21:36) [17]
у тебя текст, который сохранить надо где находится?
b86 (2008-05-06 21:36:00) [16]procedure TForm1.Button1Click(Sender: TObject);
begin
{вот здесь что написать?}
end;
Сергей М, (2008-05-06 21:34:00) [17]
> че там надо написать?
Вариантов масса:
1. Наш ответ Чемберлену
2. Письмо турецкому султану
3. Письмо Онегина к Татьяне (или наоборот - по колено)
4. Занято !
5. Придумай сам
Anatoly Podgoretsky (2008-05-06 21:33:00) [18]> b86 (06.05.2008 21:27:11) [11]
Это хорошо, что ты тоже не грустный, но надо и выводы сделать и огласить их.
DVM (2008-05-06 21:32:00) [19]
> ни фига не получается! че там надо написать?
save я же говорил
Сергей М, (2008-05-06 21:30:00) [20]
> Спасибо вам большое!
Та не за что)
Носите не стаптывайте !