Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Создание собственной процедуры [D6, WinME]

nikoss © (2002-07-16 14:03:00)
Существует процедура состоящяя из множества строк кода. Часть этого
кода необходимо выделить в отдельную процедуру, чтобы не дублировались
одни и тежи строки в разных процедурах. Вопрос заключатся в следующем.
Как создать собственную процедуру, чтобы к ней могли обращаться все
процедуры.
Упрощенный пример:

var
Form1: TForm1;
a,b,c,z : Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
c := a+b; //Часто использемое вычисление.
//Необходимо выделить в отдельную процедуру с возможностью
//доступа к ней из других процедур.end;

procedure TForm1.Button2Click(Sender: TObject);
begin
z := c + 10;
Label1.caption := IntToStr(z);
end;

end.

Прибалдевший (2002-07-16 15:00:00) [1]
И Вас, господин Щербаков, тоже попрошу остаться и просветить господина Николая 21 года от роду по интересующему его вопросу !

Виктор Щербаков (2002-07-16 14:47:00) [2]
Да чего Вы?
Вопрос-то вполне нормально сформулирован.

Anatoly Podgoretsky (2002-07-16 14:40:00) [3]
function add(Left,Right: Extended) : Extended;
begin
Result := Left+Right;
end;

Прибалдевший (2002-07-16 14:38:00) [4]
А Вас, товарищ Сухов, я попрошу остаться !

tovSuhov (2002-07-16 14:33:00) [5]
Чего вы возмущаетесь? Человек САМ дошел до по понятия СТРУКТУРНОГО программирования!!! Это же похвально!

Прибалдевший (2002-07-16 14:33:00) [6]
Спасибо ! Очень поучительные ответы !!! А каков ВОПРОСИЩЕ !? Гениально !

saxon (2002-07-16 14:24:00) [7]
есть куча способов это сделать
но самое лучшее это вообще не делать :))

Поперхнувшийся (2002-07-16 14:12:00) [8]
дурдом какой-то...

ПИТОН (2002-07-16 14:08:00) [9]
Учи паскаль
function summa(a,b : integer)
begin
summa := a+b
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
c:= summa(a,b);
end;

-=Sergeante=- (2002-07-16 14:08:00) [10]

procedure MyProc;

var
Form1: TForm1;
a,b,c,z : Integer;
implementation

{$R *.dfm}

procedure MyProc;
begin
c := a+b;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
MyProc;
end;

anatol (2002-07-16 14:07:00) [11]
a v4em sobstveno problema? Prosto sozday protseduru vne ili v klase formi v zavisimosti ot 4ego vam nujno i rabotaite...

Kaban (2002-07-16 14:06:00) [12]
Вот это да...

Наверх

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