|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Диалоги открыть и сохранить
Люди! Кто знает OpenDialog и SaveDialog можно использовать в отдельных функциях и процедурах. У меня он пишет:
[Pascal Error] Unit1.pas(1): Unable to invoke Code Completion due to errors in source code Кто знает в чём проблема? |
#2
|
||||
|
||||
Дай код, разберёмся.
|
#3
|
||||
|
||||
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function open1:string; begin if OpenDialog1.Execute then open1:=OpenDialog1.filename; end; procedure TForm1.Button1Click(Sender: TObject); var name:string; begin name:=open1; end; end. |
#4
|
||||
|
||||
Собственно вот и код
|
#5
|
||||
|
||||
Может так?
Код:
procedure TForm1.Button1Click(Sender: TObject); function open1:string; begin if OpenDialog1.Execute then open1:=OpenDialog1.filename; end; var name:string; begin name:=open1; end; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#6
|
|||
|
|||
Или включить функцию в тело класса формы...
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); function open1:string; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function TForm1.open1:string; begin if OpenDialog1.Execute then result := OpenDialog1.filename; end; procedure TForm1.Button1Click(Sender: TObject); var name:string; begin name:=open1; end; end. У тебя же объект находится на форме... или... как вариант.. Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); function open1:string; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function open1(OpenDl : TOpenDialog):string; begin if OpenDl.Execute then result := OpenDl.filename; end; procedure TForm1.Button1Click(Sender: TObject); var name:string; begin name:=open1(OpenDialog1); end; end. Последний раз редактировалось voron_paa, 09.02.2008 в 10:02. |
#7
|
|||
|
|||
мда. пока писал. Voron уже ответил
|