Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];
Вниз
Создание собственной процедуры Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c