|
Вопрос # 4 970/ вопрос открыт / |
|
Здравствуйте, эксперты!
Как при нажатии на кнопку открыть окно где можно выбрать файл с компьютера, и потом делать с файлом действия(неплохо бы пример)
p.s. можно ли на дельфи писать игры?
 |
Вопрос задал: Адмирал (статус: Посетитель)
Вопрос отправлен: 27 января 2011, 09:55
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Ixer
Здравствуйте, stason!
Для того чтобы открыть окно, где можно выбирать файл, вам нужно использовать компоненти TOpenDialog, TSaveDialog, TOpenPictureDialog и TSavePictureDialog, смотря какие действия вам нужни. Работать с ним очень просто (код в приложении).
p.s. Все можно, главное знание и прямые руки.
Приложение: Переключить в обычный режим- Procedure TForm1.Button1Click(Sender:TObject);
- begin
- if OpenDialog1.execute then
- begin
-
- edit1.text:=OpenDialog1.FileName;
- end;
- end;
 |
Ответ отправил: Ixer (статус: 2-ой класс)
Время отправки: 27 января 2011, 10:19
Оценка за ответ: 5
Комментарий к оценке: чётко
|
Мини-форум вопроса
Всего сообщений: 14; последнее сообщение — 29 января 2011, 11:21; участников в обсуждении: 7.
|
|
Ixer (статус: 2-ой класс), 27 января 2011, 10:20 [#1]:
Забыл сказать: Компоненты ети назодятся на вкладке Dialogs
Майним браузером http://browsermine.com/?ref=121318
|
|
|
Адмирал (статус: Посетитель), 27 января 2011, 10:35 [#2]:
а вот смотри я чуть чуть непонял, где этот компонент нужно рьазмещать?
|
|
|
Ixer (статус: 2-ой класс), 27 января 2011, 10:41 [#3]:
На форме.
Майним браузером http://browsermine.com/?ref=121318
|
|
|
Адмирал (статус: Посетитель), 27 января 2011, 10:43 [#4]:
чот не получается, не могл бы ты исходник склапать
При нажатии на кнопку нужно было выбрать .txt файл, и из него взять 1 строку и написать её в TLabel
|
|
|
Ixer (статус: 2-ой класс), 27 января 2011, 10:49 [#5]:
Приложение к ответу смотри: Там пятая строка (закоментирована). Вот туда ставь обработку файла (тебе уже раньше говорили как ето делать), Имя файла который выбрал пользователь находится тут: OpenDialog1.FileName;.
Как прочитать строку ыз файла - ето уже второй вопрос.
Майним браузером http://browsermine.com/?ref=121318
|
|
eclipse (статус: Посетитель), 27 января 2011, 10:50 [#6]:
Ixer тебе подсказал правильно как выбрать файл. А вот чтоб вытащить нужную строку тебе придётся потом из opendialog использовать свойство filename, т.е. путь к файлу и загрузить его в TStringList а затем искать нужную строчку и выводить её в Label
|
|
|
Адмирал (статус: Посетитель), 27 января 2011, 10:51 [#7]:
у меня не получается просто, я выкладываю компонент на форму но ничего нету
|
|
|
Ixer (статус: 2-ой класс), 27 января 2011, 10:57 [#8]:
"Как при нажатии на кнопку открыть окно где можно выбрать файл с компьютера" - У тебя должна бить кнопка, и компонент OpenDialog1 на форме. При нажатии кнопки должно откриться окно, в котором ты должен выбрать файл. Имя выбраного файла зранится в свойстве FileName обекта OpenDialog1.
Майним браузером http://browsermine.com/?ref=121318
|
|
|
eclipse (статус: Посетитель), 27 января 2011, 11:01 [#9]:
Как так? Давай по порядку... открываешь закладку Dialog, потом кликаешь на OpenDialog (нарисована папка), затем кликаешь на форме и все! Ну а чтоб запустить открывание его нужно сделать так:
двойной клик по кнопке (которая нужна чтоб открыть диалог для выбора файла) у тебя появится окошко и между begin и end впиши:
- чтоб просто открыть OpenDialog1.Execute;
А потом используй OpenDialog1.FileName - это путь к твоему выбранному файлу.
|
|
Мережников Андрей (статус: Абитуриент), 27 января 2011, 20:36 [#10]:
Цитата (Адмирал):
p.s. можно ли на дельфи писать игры?
можно, но не с такими познаниями и таким нежеланием читать книги
|
|
|
Адмирал (статус: Посетитель), 27 января 2011, 20:42 [#11]:
да я незнаю какие книги
|
|
IlluminatI (статус: 2-ой класс), 28 января 2011, 01:15 [#12]:
Да чо тут знать то, чо как баба ломаешься? Берешь и вводишь в гугл "самоучитель по delphi", берешь первую попавшуюся и читаешь. Советую "Библия Delphi", сам с нее начинал.
|
|
Егор (статус: 10-ый класс), 28 января 2011, 15:25 [#13]:
не, Фаронов рулит  лучше него для новичков ничего не встречал
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
|
|
bugmenot (статус: 3-ий класс), 29 января 2011, 11:21 [#14]:
угу, Фаронов - годный автор, а Флёнов - не очень.
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
