Процедуры

← →
Shadow-st (2004-11-08 18:14) [0]

Здравствуйте!
Как вынести процедуры программы в отдельный *.pas?

← →
YurikGL © (2004-11-08 18:18) [1]

copy/paste ?

← →
Anatoly Podgoretsky © (2004-11-08 19:28) [2]

Нет
cut/paste

← →
Sphinx (2004-11-08 19:41) [3]

Убрать вначале TForm1. или аналог и перенести все используемые глобальные переменные (если есть) в строку вызова, ну а потом естественно
> Anatoly Podgoretsky © (08.11.04 19:28) [2] или > YurikGL © (08.11.04 18:18) [1]

← →
Shadow-st (2004-11-09 18:16) [4]

Шутники...Тупость юмора отражает степень ваших мозгов.
То,что вы сказали я знал. Я спросил как оформить этот *.pas как вызвать правильно оттуда процедуру.

← →
Reindeer Moss Eater © (2004-11-09 18:22) [5]

File->New->Unit

Тоже не катит?

1)
File->New ->Unit
2)
File->SaveAs
MyGlobalUnit // например

3)

Unit MyGlobalUnit;

interface

var
MyVar1:Integer;
function MyProc(Param1:Integer):Integer;

implementation
uses
Unit1; // - например

function MyProc(Param1:Integer):Integer;
begin
if Param1=1 then
Result:=Form1.Showmodal
else Result:=-1;
end;

end.

можно так:

файл proc.pas:

procedure MyProc begin ...... end;

основная программа
{$I proc.pas}

<offtop>
Shadow-st (09.11.04 18:16) [4]
Моя плакать. :)
А ешшо как назвался-то:))))
</offtop>
Учи мат часть.
А по правильному как в книждках ешшо копирайты надо на суперпупер процедуру + описание модуля и параметров подпрограмм:)

Процедуры Найти похожие ветки