|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.08.2007, 17:28 | #1 |
Регистрация: 30.08.2007
Сообщений: 4
|
Помогите создать файл
Ребята помогите сделать так чтобы программа создавала файл своего формата. PLEASE (Например *.SEC)
|
30.08.2007, 18:19 | #2 |
Форумчанин Подтвердите свой е-майл
Регистрация: 07.07.2007
Сообщений: 241
|
Всмысле регистрировала в реестре формат? Или чтобы просто сохраняла файл?
|
30.08.2007, 20:22 | #3 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
расширение своим файлам ты можешь давать любое, как текстовым так и всем остальным
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
02.09.2007, 19:49 | #4 |
Регистрация: 30.08.2007
Сообщений: 4
|
Я нашёл код для сохранения:
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+'.sec'); end; end else begin showmessage('Имя файла не указано!'); end; f.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin memo1.Lines.clear; edit1.text:=''; end; Только помогите сделать так чтобы программа загружала файлы!!!! |
02.09.2007, 23:15 | #5 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
во первых вот это
Код:
Код:
Код:
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог Последний раз редактировалось mutabor; 02.09.2007 в 23:35. |
04.09.2007, 17:37 | #6 |
Регистрация: 30.08.2007
Сообщений: 4
|
Спасибо за код только он не работает.
Memo1.LoadFromFile(edit1.Text+'.sec '); Выдаёт ошибку |
04.09.2007, 17:44 | #7 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
и?
где код? где пример файла ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создать exe-файл | vitalik007 | Общие вопросы Delphi | 8 | 09.07.2010 11:45 |
Как создать txt файл | Titan123 | Общие вопросы Delphi | 7 | 29.06.2008 16:56 |
Как создать бат файл? | svarog45u | Помощь студентам | 2 | 18.11.2007 13:20 |
Как создать файл NTX | MegaMax | БД в Delphi | 1 | 05.11.2007 10:09 |