Главная страница
    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.58 MB
Время: 0.029 c
1-95365
programmerts
2002-07-12 19:38
2002.07.29
Как удалить неудаляемый файл.


4-95627
Yerba
2002-05-21 14:29
2002.07.29
О установке своего языка


14-95570
muzik
2002-06-27 17:33
2002.07.29
Сокеты!


1-95388
PONTIY
2002-07-16 06:38
2002.07.29
XML


8-95454
NecroMan
2002-03-19 05:29
2002.07.29
Хочу сделать плагин для WinAMP





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский