панель Standart - Помощь студентам

Cuper_Style · 12.06.2009, 16:07

Memo1.Lines.LoadFromFile('file_name .txt');

как сделать что бы через Edit задавать имя создаваемого файла?
как через listbox отобразить список файлов в директории заданной через edit?

Levsha100 · 12.06.2009, 16:19

Код:

Memo1.Lines.LoadFromFile(Edit1.Text+'.txt');

Пользуйтесь тегом [CODE]

Cuper_Style · 12.06.2009, 16:24

спасибо.
а по поводу второго вопроса не подскажешь?

Cuper_Style · 12.06.2009, 17:09

а не, не надо)))

Cuper_Style · 12.06.2009, 17:12

нет( надо( сорри за флуд

MalCer · 12.06.2009, 19:42

Ну сначала нужно извлечь их имена ф-ей ExtractFileName(Application. ExeName)

Cuper_Style · 12.06.2009, 22:57

спасибо, попытаюсь разобраться

-HunteR- · 12.06.2009, 23:35

Код:

if FileExists(ExtractFilePath(Application.ExeName)+edit1.Text)
then
Messagebox(Application.Handle,'Файл существует','О-па!',0)
else
Messagebox(Application.Handle,'Файл не существует','О-па!',0)

В Edit1 вводится название файла вместе с расширением.Хочешь без него - после edit1.tex добавь +'.xxx', где xxx - твое расширение.

12.06.2009, 16:07	#1
Cuper_Style Новичок Джуниор Регистрация: 12.06.2009 Сообщений: 5	панель Standart Memo1.Lines.LoadFromFile('file_name .txt'); как сделать что бы через Edit задавать имя создаваемого файла? как через listbox отобразить список файлов в директории заданной через edit?

12.06.2009, 16:19	#2
Levsha100 Заблокирован Старожил Регистрация: 20.07.2008 Сообщений: 4,032	Код: `Memo1.Lines.LoadFromFile(Edit1.Text+'.txt');` Пользуйтесь тегом [CODE]

12.06.2009, 19:42	#6
MalCer Форумчанин Регистрация: 15.07.2008 Сообщений: 615	Ну сначала нужно извлечь их имена ф-ей ExtractFileName(Application. ExeName) xor eax, eax xchg [eax], eax

12.06.2009, 23:35	#8
-HunteR- Форумчанин Регистрация: 04.11.2007 Сообщений: 117	Код: `if FileExists(ExtractFilePath(Application.ExeName)+edit1.Text) then Messagebox(Application.Handle,'Файл существует','О-па!',0) else Messagebox(Application.Handle,'Файл не существует','О-па!',0)` В Edit1 вводится название файла вместе с расширением.Хочешь без него - после edit1.tex добавь +'.xxx', где xxx - твое расширение. Перед тем, как выложить код, я его всегда проверяю. Если помог - тыкни на на весы слева, под аватарой. Последний раз редактировалось -HunteR-; 12.06.2009 в 23:50.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

12.06.2009, 16:24	#3
Cuper_Style Новичок Джуниор Регистрация: 12.06.2009 Сообщений: 5	спасибо. а по поводу второго вопроса не подскажешь?

12.06.2009, 17:09	#4
Cuper_Style Новичок Джуниор Регистрация: 12.06.2009 Сообщений: 5	а не, не надо)))

12.06.2009, 17:12	#5
Cuper_Style Новичок Джуниор Регистрация: 12.06.2009 Сообщений: 5	нет( надо( сорри за флуд

12.06.2009, 22:57	#7
Cuper_Style Новичок Джуниор Регистрация: 12.06.2009 Сообщений: 5	спасибо, попытаюсь разобраться

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Выдвижная панель	Патрон	Общие вопросы Delphi	11	09.02.2012 08:50
Прозрачная панель	Vladya	Компоненты Delphi	5	14.05.2009 12:34
панель в браузере	blackstersl	Общие вопросы Delphi	1	06.09.2008 12:03
Панель задач	Черничный	Общие вопросы Delphi	2	18.08.2008 02:28
Как создать программу-панель (как панель Msoffice), чтобы была поверх всех окон	Romanbl4	Общие вопросы Delphi	6	27.06.2007 17:23