Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.006 c
14-95542
Igorek
2002-07-03 11:42
2002.07.29
Виндовс98 рус. - глюки.


1-95372
jen_bond
2002-07-15 11:19
2002.07.29
Возможно ли??


1-95402
sdram
2002-07-16 11:19
2002.07.29
DBGrid


8-95455
IgoX
2002-03-21 12:58
2002.07.29
Как в Photoshop


7-95571
Dion
2002-05-09 04:21
2002.07.29
Господа, программеры, кто-нить сталкивался с разработкой программ





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский