Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.22;
Скачать: CL | DM;

Вниз

Как передать управление процедуре?   Найти похожие ветки 

 
Bim   (2004-05-03 21:03) [0]

Делаю игру, в конце формкрейт необходимо передать выполнение процедуре которая в другом .pas , там графика грузиться игры. Просто хотел раскидать исходники по файлам, чтоб в куче не лежали а что то не особо получаеться.


 
Tsaiper ©   (2004-05-03 21:47) [1]

пишешь название модуля в uses (навирху, после волшебного слова interface), и процедуру можно вызывать. А ещё можно из меню: Project -> Add to project... Работает железно :)


 
Bim   (2004-05-03 21:58) [2]

я знаю как добавить в проект еще пас-файл. я спрашиваю как из формкрейт потом вызвать например процедуру loadgraphics которая в другом пасе?


 
TButton ©   (2004-05-03 22:13) [3]

ээээ... имхо - LoadGraphics
или
Graphics.Loadgraphics
где, Graphics - имя модуля с графикой.
и процедура, конечно, должна быть объявлена в секции interface модуля.


 
Bim   (2004-05-03 23:33) [4]

Тоесть? ту процедуру что я написал, я сам придумал в качестве примера. просто напишу Procedure load; во втором пасе а в первом к ней обращюсь во время создания приложения(формкрате) и все, вот тока не знаю как обратиться.


 
Cobalt ©   (2004-05-04 00:01) [5]

Формат вызова процедуры:
[<Имя модуля (то, что указано в Unit <имярек>)>.]<Имя процедуры/функции><(параметры)>


 
Bim   (2004-05-04 00:16) [6]

хм.. что то не понятно, можно пример


 
TButton ©   (2004-05-04 02:46) [7]

"да ****** ты по голове! ты что наркоман!" (с)Бабка АТС.
без обид. но тут все ясно уже изложено. и тем не менее.

unit Unit2;

interface

procedure LoadSomething(s: string; i: integer);

implementation

procedure LoadSomething(s: string; i: integer);
begin
 ...
end;

end.


unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Unit2;

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

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ...
 LoadSomething(s,i);
 ...
end;

end.


надеюсь после этого вопросов не останется.
P.S.
... это куски кода вырезаные за ненадобность, просто про игнорируй их.
P.P.S.
названия процедур, передаваемых им данных, переменных, класов, их методов и свойств может меняться.


 
Bim   (2004-05-04 14:42) [8]

Во, то что надо, спасибо.



Страницы: 1 вся ветка

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.044 c
1-1091809567
Niakris
2004-08-06 20:26
2004.08.22
массив из имен


3-1090909555
Submarine
2004-07-27 10:25
2004.08.22
Может кто знает как вытащить данные из поля "bytes" в Paradox


14-1091777066
VID
2004-08-06 11:24
2004.08.22
Зацените, плиз...


11-1079816341
nester
2004-03-20 23:59
2004.08.22
Как в KOLRichEdit сделать кусок текста как ссылку?


1-1091708352
Coder: TCoder;
2004-08-05 16:19
2004.08.22
"..." (переменное число параметров)