Другие языки программирования и технологии
Как сделать в Delphi 7 программу, чтобы открывала OpenDialog или SaveDialog прямо из Project1.dpr (а не из Unit1.pas)?
Никаких форм и Unit'ов быть вообще не должно.
У меня нет 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.
Из изначально созданного проекта нужно удалить модуль и форму.
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.
Из изначально созданного проекта нужно удалить модуль и форму.
Довольно странное условие. Ну, отсутствие форм - это, положим, консольное приложение (Console Application) или сервис (Service) - можно при создании нового проекта выбрать соответствующий шаблон, а вот почему не должно быть юнитов в исходнике? Вынос кода в отдельные модули помогает структурировать программу, если она хотя бы немного сложнее, чем "hello world".
Павел Булатов
Суть моей программы:
1. Открывает OpenDialog для выбора файла Excel (*.xls).
2. Создаёт объект Excel.Application, открывает в нём выбранный файл, кое-что с ним делает (это неважно.
2. Открывает SaveDialog для сохранения полученного файла.
И зачем такой программе формы? :))))))
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;
тут компонент не исопльхуется. . тут само все рпописывается иобьявляется. пимер в инете нашел. на работоспособность не проверял)
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.
2. Просил без форм, а тут Form1.Button1Click.
Ты, видимо, вообще в Делфи не разбираешься, либо вопрос некорректно задал. "Проджект. дпр" -- это файл проекта, а в "юнит. пас" хранится чистый код.
А как ты себе представляешь программу без формы и кода?
А как ты себе представляешь программу без формы и кода?
Павел Булатов
А Вы разбираетесь, что ли, раз такой вопрос задаёте: "А как ты себе представляешь программу без формы и кода?" :))))))))
1. И в Project.dpr есть код. Создайте, откройте и посмотрите! :)))))
2. Программа, написанная на Delphi 7, МОЖЕТ работать без Unit и без форм. Опять же попробуйте, прежде чем отрицать.
3. Конечно, я не особо опытный программист. Но и сказать, что совсем не разбираюсь, тоже нельзя :)
1. И в Project.dpr есть код. Создайте, откройте и посмотрите! :)))))
2. Программа, написанная на Delphi 7, МОЖЕТ работать без Unit и без форм. Опять же попробуйте, прежде чем отрицать.
3. Конечно, я не особо опытный программист. Но и сказать, что совсем не разбираюсь, тоже нельзя :)
Данияр Исабеков
ему просто не хочется компонент на форму кидать. там можно... есть способ я делал)
Похожие вопросы
- Создаю тест в DELPHI 7. Программа не считает правильные ответы.
- Delphi 7 | Как сделать значок моей программы в трее ?
- Помогите составить программу в Delphi 7!
- delphi 7 создаём программу-прикол
- Что предпочтительней Delphi 7 или Delphi 2009? И почему?
- Люди у кавонить есть прога на Delphi 7??
- Какой язык лучше учить Delphi 7 или C++ ?
- Составить программу с помощью Delphi 7
- Язык delphi 7 устарел ??? просто хотел учить delphi 7 но сейчас кто то сказал что устарел
- Какова стоимость? Какова стоимость Borland Delphi 7? И что лучше delphi или lazarus? И почему?
А остальные, кто отвечал, всё байду какую-то несли :)))))