Другие языки программирования и технологии

Как сделать в Delphi 7 программу, чтобы открывала OpenDialog или SaveDialog прямо из Project1.dpr (а не из Unit1.pas)?

Никаких форм и Unit'ов быть вообще не должно.
Павел Булатов
Павел Булатов
6 355
У меня нет Delphi, но в Lazarus (99% совместим с Delphi7) работает такое:

uses
    Interfaces, Forms, Dialogs;

var
    openDialog : TOpenDialog;

begin
    Application.Initialize;
    openDialog := TOpenDialog.Create(Application);
    if openDialog.Execute then
        ShowMessage('Выбран файл: ' + openDialog.FileName)
    else
        ShowMessage('Выбор файла отменен');
    Application.Terminate;
end.

Из изначально созданного проекта нужно удалить модуль и форму.
Erik Uzgumbayev
Erik Uzgumbayev
86 935
Лучший ответ
Павел Булатов Спасибо :) Работает!!!
А остальные, кто отвечал, всё байду какую-то несли :)))))
Довольно странное условие. Ну, отсутствие форм - это, положим, консольное приложение (Console Application) или сервис (Service) - можно при создании нового проекта выбрать соответствующий шаблон, а вот почему не должно быть юнитов в исходнике? Вынос кода в отдельные модули помогает структурировать программу, если она хотя бы немного сложнее, чем "hello world".
Павел Булатов Суть моей программы:
1. Открывает OpenDialog для выбора файла Excel (*.xls).
2. Создаёт объект Excel.Application, открывает в нём выбранный файл, кое-что с ним делает (это неважно.
2. Открывает SaveDialog для сохранения полученного файла.

И зачем такой программе формы? :))))))
procedure TForm1.Button1Click(Sender: TObject);
var sd:TSaveDialog;
f:textfile;
i:integer;
begin
sd:=SaveDialog1;
if not sd.execute then exit;
assignfile(f, sd.FileName);
rewrite(f);
for i:=0 to (StringGrid1.ColCount-1) do begin
b:=StrToInt(StringGrid1.Cells[i,0]);
write(f, b);
end;

end;

тут компонент не исопльхуется. . тут само все рпописывается иобьявляется. пимер в инете нашел. на работоспособность не проверял)
Павел Булатов 1. Не работает.
2. Просил без форм, а тут Form1.Button1Click.
Ты, видимо, вообще в Делфи не разбираешься, либо вопрос некорректно задал. "Проджект. дпр" -- это файл проекта, а в "юнит. пас" хранится чистый код.

А как ты себе представляешь программу без формы и кода?
Павел Булатов А Вы разбираетесь, что ли, раз такой вопрос задаёте: "А как ты себе представляешь программу без формы и кода?" :))))))))

1. И в Project.dpr есть код. Создайте, откройте и посмотрите! :)))))
2. Программа, написанная на Delphi 7, МОЖЕТ работать без Unit и без форм. Опять же попробуйте, прежде чем отрицать.
3. Конечно, я не особо опытный программист. Но и сказать, что совсем не разбираюсь, тоже нельзя :)
Данияр Исабеков ему просто не хочется компонент на форму кидать. там можно... есть способ я делал)