| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как вызвать новую процедуру ???

roman_ln ©   (2007-04-20 18:49:00) 

Не связанную с элементами формы???

---

vovnuke   (2007-04-20 19:48:00) [1]

виноват, пропустил :-)

---

Kostafey   (2007-04-20 19:45:00) [2]

> она вообще может быть объявлена и описана внутри процедуры
> которая ее вызывает ... :-)))

Нет, чур это незачет, в [4] это включено ;))

---

Ega23   (2007-04-20 19:42:00) [3]

> она вообще может быть объявлена и описана внутри процедуры
> которая ее вызывает ... :-)))


может и так...  :)

---

vovnuke   (2007-04-20 19:41:00) [4]

она вообще может быть объявлена и описана внутри процедуры которая ее вызывает ... :-)))

---

Ega23   (2007-04-20 19:33:00) [5]

> Она ведь объвлена раньше, хотя и не реализована.


Да. Но объявлена не в секции interface ...   :)))

---

Kostafey   (2007-04-20 19:31:00) [6]

> procedure DoSmthng; forward;

Так не честно! Она ведь объвлена раньше, хотя и не реализована.
Ладно, сдаюсь, проиграл.

---

Kostafey   (2007-04-20 19:30:00) [7]

> Не обязательно...  :)

Вот тут у меня фантазия на убыль пошла...
Как еще можно запустить процедуру не выполнив ни [2] ни [4] ?

---

Ega23   (2007-04-20 19:26:00) [8]

> Либо, если она там не объявлена, то ее реализация должна
> быть оиписана выше ее вызова.



unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

procedure DoSmthng; forward;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 DoSmthng;
end;

procedure DoSmthng;
begin
 ShowMessage('DoSmthng;');
end;

end.

---

Ega23   (2007-04-20 19:24:00) [9]

> Либо, если она там не объявлена, то ее реализация должна
> быть оиписана выше ее вызова.


Не обязательно...  :)

---

Ega23   (2007-04-20 19:21:00) [10]

> Она должна быть объявлена в интерфейсной части Unit-а.


Не обязательно.

---

Kostafey   (2007-04-20 19:21:00) [11]

Либо, если она там не объявлена, то ее реализация должна быть оиписана выше ее вызова.

---

Kostafey   (2007-04-20 19:20:00) [12]

Она должна быть объявлена в интерфейсной части Unit-а.

---

Ega23   (2007-04-20 18:55:00) [13]

взять и вызвать. Точно также, как и связанную с "элементами формы"

---

Наверх