Как написать свою процедуру?

[theYozh]

Всем привет.Понимаю, что вопрос ламерский, однако, для меня пока неразрешимый.

Как написать процедуру, чтобы она принимала одну переменную и возвращала одну переменную. И как потом можно использовать в коде возвращенную переменную, где ее прописывать может надо?

Заранее спасибо

[KingOfNothing]

Вот так пишешь процедуру - переменные с var будут возвращать значение из процедуры.

procedure Test(in:interger; var out:integer);
begin
out:=10;
end;

Вот так используешь

var p:integer;
begin
p:=100;
Test(50, p);
end;

после выполнения процедуры переменная p будет равна 10

[theYozh]

Спасибо! Именно это мне когда-то обясняла информатичка, но тогда все утерялось) А в нете этого не нашел.
Спасибо

[Роман Радер]

Сообщение от theYozh

Спасибо! Именно это мне когда-то обясняла информатичка, но тогда все утерялось) А в нете этого не нашел.
Спасибо

очень, очень плохо искали

[Kopcap]

Могу закинуть лекцию по процедурам и функциям на e-mail. Если надо в ЛС)

[theYozh]

Вы не можете отправить сообщение Kopcap, поскольку он(а) решил(а) не принимать личные сообщения, либо ему(ей) не разрешена эта опция.

Закинь пожалуйста на nnbox[собака]fromru.com

[puporev]

А в нете этого не нашел.

За такое откровенное вранье я бы советовал товарищу в помощи отказать.

[theYozh]

Сообщение от puporev

За такое откровенное вранье я бы советовал товарищу в помощи отказать.

С тобой пререкаться не собираюсь, скажу только, что в нете разбираются сложные случаи, а мне нужно было понять как работать с этим на базовом уровне.

[puporev]

На базовом уровне в нете куча самоучителей и учебников по Паскалю, где подрлбно, для новичков описана работа с подпрограммами и не надо лапшу вешать, прикрывая ею свою лень.

[theYozh]

Я искал и в лени меня не обвинишь.
Смотрел на rsdn.ru, delphikingdom.com, поисковиках...
Нашел ссылку, которая больше отвечала на мой вопрос (сейчас в истории посмотрю - докину), но в ней не было описано как работать с возвращающимися переменными. Поэтому решил спросить здесь.

В конце концов я сразу сказал что вопрос ламерский и возможно везде разобранный, но мой поиск инфы на эту тему успехом не увенчался.

(ссылку сейчас докину)
http://www.weblibrary.biz/delphi/procedure_and_function