Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2011, 04:46   #11
Form_13
Форумчанин
 
Регистрация: 25.04.2011
Сообщений: 107
По умолчанию

Я попробовал сразу, не работает.
Form_13 вне форума Ответить с цитированием
Старый 19.12.2011, 06:43   #12
3D Hunter
Сумрачная тень
Форумчанин
 
Аватар для 3D Hunter
 
Регистрация: 05.03.2009
Сообщений: 689
По умолчанию

у меня Delphi XE и все работает.
"ковыряю изнутри" (с)
3D Hunter вне форума Ответить с цитированием
Старый 19.12.2011, 08:12   #13
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

попробуйте создать VCL проект, киньте на форму TOpenDialog и посмотрите какой uses нужен.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 19.12.2011, 10:02   #14
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

Код 3D Hunter отлично работает, лишь где выделено жирным лучше написать как у меня
Код:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, dialogs;

var
  od:TOpenDialog;
begin
  try
    try
      od:=TOpenDialog.Create(nil);
      if od.Execute() then ShowMessage(od.FileName);
    finally
      FreeAndNil(od);
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Старый 19.12.2011, 12:05   #15
3D Hunter
Сумрачная тень
Форумчанин
 
Аватар для 3D Hunter
 
Регистрация: 05.03.2009
Сообщений: 689
По умолчанию

Почему лучше? В чем разница? Объясните тогда.
"ковыряю изнутри" (с)
3D Hunter вне форума Ответить с цитированием
Старый 19.12.2011, 13:42   #16
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Цитата:
Почему лучше? В чем разница? Объясните тогда.
в моей версии Delphi функция Execute не имеет параметров.
поэтому в строчке
Цитата:
Код:
 if od.Execute(0) then
на нолик выдаётся ошибка - Too many actual parameters
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.12.2011, 14:07   #17
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

Цитата:
Сообщение от 3D Hunter Посмотреть сообщение
Почему лучше? В чем разница? Объясните тогда.
Потому что так нуль как параметр, не желательно передавать, ну на крайняк paramstr(0)
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обращение к char Crivel Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 6 31.07.2009 14:00
Двухстороннее обращение SIV84 Microsoft Office Excel 2 05.03.2009 22:01
Обращение Акашаев Нурлан Общие вопросы Delphi 5 26.06.2008 16:02
Помогите отследить обращение к логическому диску, папке, файлу bonzo Общие вопросы Delphi 4 08.02.2007 12:12