Скачать: CL | DM;

Создание собственной процедуры   Найти похожие ветки 

← →
nikoss ©   (2002-07-16 14:03) [0]

Существует процедура состоящяя из множества строк кода. Часть этого
кода необходимо выделить в отдельную процедуру, чтобы не дублировались
одни и тежи строки в разных процедурах. Вопрос заключатся в следующем.
Как создать собственную процедуру, чтобы к ней могли обращаться все
процедуры.
Упрощенный пример:

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.

---

← →
Kaban ©   (2002-07-16 14:06) [1]

Вот это да...

---

← →
anatol ©   (2002-07-16 14:07) [2]

a v4em sobstveno problema? Prosto sozday protseduru vne ili v klase formi v zavisimosti ot 4ego vam nujno i rabotaite...

---

← →
ПИТОН   (2002-07-16 14:08) [3]

Учи паскаль
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) [4]

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;

---

← →
Поперхнувшийся   (2002-07-16 14:12) [5]

дурдом какой-то...

---

← →
saxon ©   (2002-07-16 14:24) [6]

есть куча способов это сделать
но самое лучшее это вообще не делать :))

---

← →
tovSuhov ©   (2002-07-16 14:33) [7]

Чего вы возмущаетесь? Человек САМ дошел до по понятия СТРУКТУРНОГО программирования!!! Это же похвально!

---

← →
Прибалдевший   (2002-07-16 14:33) [8]

Спасибо ! Очень поучительные ответы !!! А каков ВОПРОСИЩЕ !? Гениально !

---

← →
Прибалдевший   (2002-07-16 14:38) [9]

А Вас, товарищ Сухов, я попрошу остаться !

---

← →
Anatoly Podgoretsky ©   (2002-07-16 14:40) [10]

function add(Left,Right: Extended) : Extended;
begin
Result := Left+Right;
end;

---

← →
Виктор Щербаков ©   (2002-07-16 14:47) [11]

Да чего Вы?
Вопрос-то вполне нормально сформулирован.

---

← →
Прибалдевший   (2002-07-16 15:00) [12]

И Вас, господин Щербаков, тоже попрошу остаться и просветить господина Николая 21 года от роду по интересующему его вопросу !

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c