|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.08.2007, 04:46 | #1 |
Пользователь
Регистрация: 16.08.2007
Сообщений: 33
|
Создание файла
Тут вот как ая тема мне надо чтоб при нажатие кнопки(создать) создовался txt файл с введённым именим в Edit1. а в сам документ (txt) чтоб сохранялось то что введётся в Memo1 и как это сделать?
Как два байта переслать???
|
21.08.2007, 05:41 | #2 |
python developer
Пользователь Подтвердите свой е-майл
Регистрация: 30.11.2006
Сообщений: 81
|
попробуй так:
... procedure TForm1.Button1Click(Sender: TObject); var f : TStringList; n : integer; begin f:=TStringList.Create(); if (edit1.Text<>'') then begin for n:=0 to memo1.Lines.Count do begin f.Add(memo1.Lines.Strings[n]); f.SaveToFile(edit1.Text+'.txt'); end; end else begin showmessage('Имя файла не указано!'); end; f.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin memo1.Lines.clear; edit1.text:=''; end; ...
Границы расширяет тот, кто выходит за них.
|
21.08.2007, 07:21 | #3 |
Пользователь
Регистрация: 16.08.2007
Сообщений: 33
|
Спасибо помогло!!!
Тема закрыта!
Как два байта переслать???
|
22.08.2007, 17:16 | #4 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Не знаю, может можно было так:
Код:
|
22.08.2007, 22:04 | #5 |
Пользователь
Регистрация: 12.07.2007
Сообщений: 60
|
Люди читайте мануал, зачем же задавать такие детские вопросы.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
создание файла базы | Черничный | БД в Delphi | 19 | 05.12.2008 10:26 |
Создание файла | Nowise | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 04.04.2008 19:55 |
Создание файла | BigRem | Общие вопросы Delphi | 8 | 06.01.2008 16:52 |
Создание dll файла для работы с БД | Nadya | БД в Delphi | 2 | 15.02.2007 12:54 |