Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> SaveDialog 
:(
    Опции темы
Poseidon
Дата 28.3.2005, 01:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Тогда самый простой способ:
Цитата(FRAGNATIC @ 28.3.2005, 01:16)
самому написать полнастью такой диалог
Все что хочешь, все реализуешь.



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
k2s
Дата 28.3.2005, 01:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 45
Регистрация: 23.2.2005

Репутация: нет
Всего: нет
Спасибо всем за помощь! smile

Это сообщение отредактировал(а) k2s - 28.3.2005, 01:59
PM MAIL   Вверх
FRAGNATIC
Дата 28.3.2005, 01:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
если решил сам писать то если возникнут вопросы задавай)
можеш ещё попробовать поискать такой компонент но я думаю наврятле найдёш)
PM MAIL   Вверх
k2s
Дата 28.3.2005, 02:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 45
Регистрация: 23.2.2005

Репутация: нет
Всего: нет
Очередной вопрос (правда ещё не про написание компонента smile ). Как мне узнать имена всех файлов выделенных в диалоге, если их (файлов) несколько?
PM MAIL   Вверх
FRAGNATIC
Дата 28.3.2005, 02:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
Цитата
Очередной вопрос (правда ещё не про написание компонента

те не кто не говоит писать свой компонент) мож создать просто форму как диалог и всё что надо там реализовать)

Это сообщение отредактировал(а) FRAGNATIC - 28.3.2005, 02:12
PM MAIL   Вверх
k2s
Дата 28.3.2005, 02:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 45
Регистрация: 23.2.2005

Репутация: нет
Всего: нет
Цитата(FRAGNATIC @ 28.3.2005, 02:05)
Цитата
Очередной вопрос (правда ещё не про написание компонента

те не кто не говоит писать свой компонент) мож создать просто форум как диалог и всё что надо там реализовать)

Компонент-то я действительно наверное буду писать...
А как насчёт 2й части вопроса? smile
PM MAIL   Вверх
Poseidon
Дата 28.3.2005, 02:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Цитата(k2s @ 28.3.2005, 02:03)
Как мне узнать имена всех файлов выделенных в диалоге, если их (файлов) несколько?
Для OpenDialog используй Files. (Только для выбора наскольких фойлов в OpenDialog должно быть установлено свойство ofAllowMultiSelect (в Options) в True, т.е.
Код
OpenDialog1.Options:= [ofAllowMultiSelect];
Или
Код
OpenDialog1.Options:= [ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];


Вот пример, каторый выводит в Label пути ко всем выделенным файлам.
На форме:
Button1: TButton;
Label1: TLabel;
Код
procedure TForm1.Button1Click(Sender: TObject);
var
st: TStrings;
begin
OpenDialog1.Options:= [ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];
If openDialog1.Execute
then
  begin
  st:= TStrings.Create;
  st:=OpenDialog1.Files;
  label1.Caption:= st.Text; 
// можно и   for i:= 0 to st.Count-1 do  label1.Caption:= label1.Caption + st[i];
  st.Free;
  end;
end;


Добавлено @ 02:34
Забыл: На форме еще конечно и OpenDialog1: TOpenDialog; но это я думаю понятно.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
FRAGNATIC
Дата 28.3.2005, 02:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
http://delphid.dax.ru/docs/view/browse.htm
вот те статья на похожую тему + почитай ещё коменты к статье))
PM MAIL   Вверх
k2s
Дата 28.3.2005, 03:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 45
Регистрация: 23.2.2005

Репутация: нет
Всего: нет
Ещё раз спасибо всем за помощь!
PM MAIL   Вверх
Poseidon
Дата 28.3.2005, 03:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Цитата(FRAGNATIC @ 28.3.2005, 02:58)
http://delphid.dax.ru/docs/view/browse.htm
вот те статья на похожую тему + почитай ещё коменты к статье))
Во как!
k2s, да тебе даже делать ничего не надо. Уже все сделано.
Добавлено @ 03:12
Цитата(k2s @ 28.3.2005, 03:05)
Ещё раз спасибо всем за помощь!
Всегда пожалуйста. Несмотри на поздний час, поможем всегда!



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
k2s
Дата 28.3.2005, 03:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 45
Регистрация: 23.2.2005

Репутация: нет
Всего: нет
Poseidon, я написал такой код:
Код

procedure TMainForm.SourceButtonClick(Sender: TObject);
var
 ODF : TStrings;
 i : Integer;
begin
 if OpenDialog.Execute then
  begin
   //SourceEdit.Text := OpenDialog.FileName;
   SourceEdit.Text := '';
   ODF := TStrings.Create;
   ODF := OpenDialog.Files;
   for i:= 0 to ODF.Count-1 do SourceEdit.Text := SourceEdit.Text + ODF[i] + ' ';
   ODF.Free;
  end;
end;

Теперь после то как нажмешь SourceButton всё происходит как и должно, но если нажать ещё раз, то ошибка: "Access violation at address 6566696E. Read of address 6566696E." А при закрытии "Exception EAccessViolation in module Zip.exe at 00000000. Access violation at address 00000000. Read of address 00000000." Раньше этого не было...
PM MAIL   Вверх
FRAGNATIC
Дата 28.3.2005, 04:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
Код

  if OpenDialog1.Execute then
  begin
    s:=TStringList.Create;
    s.Assign(OpenDialog1.Files);
  end;
  s.Free;

делай так
Добавлено @ 04:02
вообщем вместо
Код

ODF := OpenDialog.Files;

пиши
Код

ODF.Assign(OpenDialog.Files);

так всё ок ошибок нету)

Это сообщение отредактировал(а) FRAGNATIC - 28.3.2005, 04:06
PM MAIL   Вверх
Poseidon
Дата 28.3.2005, 04:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Цитата(FRAGNATIC @ 28.3.2005, 04:00)
так всё ок ошибок нету)
Забыл только указать, что нужно заменить TStrings на TStringList, а так молодец!

Это сообщение отредактировал(а) Poseidon - 28.3.2005, 04:15


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0550 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.