Как сделать, чтобы процедура ввернула число?

[kettanaito]

Процедурой никак, не ищите способ. Функция отлично подойдет.

function MyProcedure:string;
begin
result:='Возвращаемая строка';
end;
...
procedure TForm1.Button1Click(Sender:TObject);
var a:String;
begin
a:=MyProcedure;
ShowMessage(a);
end;

[Stilet]

Процедурой никак, не ищите способ.

Я конечно понимаю что нанесу сейчас полную ересь, но твое категоричное нет совсем неверное.
Вот тебе пример в кунсткамеру извратов:

type f=function(a,b:integer):integer;
 procedure q(a,b:integer);begin a:=a+b; asm mov eax,[a];end;end;
begin
 write(f(@q)(1,2));
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Serge_Bliznykov]

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

Вот тебе пример в кунсткамеру извратов:

Stilet, не согласен. буду спорить...

Ну, если месье так любит извраты, то попрошу пример кода,
только чтобы функция возвращала строчку, как в исходном задании требовалось.
ну и без слова function надо обойтись... ведь Вы же утверждаете, что задача может быть решена без использования функций, только через процедуры!

Просто, имхо, Ваш пример нечестный и не соответствует условиям задачи..
я согласен с высказанными выше мнениями, в том числе и мнением kettanaito
Без функции это сделать НЕЛЬЗЯ.
автор топика же чётко написал,
цитирую:

var a:String;
begin
a:=MyProcedure;
end;

Виталий, напишите свой пример (пишите что угодно, только MyProcedure должна быть procedure - Вы же утверждаете, что это возможно.
Ну и, разумеется, никаких приведений к другим функциям (опять таки ФУНКЦИЯМ) быть не должно... (т.е. дожно быть a:=MyProcedure; )

Дело в том, что процедура НЕ ВОЗВРАЩАЕТ результат (передача изменений через параметры не является возвратом результата), а функция В ОБЯЗАТЕЛЬНОМ порядке ВОЗВРАЩАЕТ результат.

и не надо смущать молодые умы, писать код через pointer и т.д. и т.п., что, похулиганить захотелось?

[chertovich]

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

procedure p(var B: Byte);
begin
  B := B * 2;
end;
...
var
  a: Byte;
begin
  P(a);
  ShowMessage(IntToStr(a));
end;

То же самое используется в Read в Pascale

[Аватар]

chertovich речь же не о этом, а об обязательном использовании конструкции a:=MyProcedure

[ZuBy]

ну или так

procedure MyProcedure(const a, b: byte; out c: byte);
begin
  c := a+b;
end;

[Пепел Феникса]

от тебе пример в кунсткамеру извратов:

Виталий, это неявная функция.(очень плохой стиль)

[Stilet]

что, похулиганить захотелось?

От горе... Ну ладно ладно, будь по вашему. Разделение процедур на функции и нефункции важно только для ЯВУ, в реале никакой разницы, именно поэтому ЯВУ умеют игнорировать результат функции, если она не участвует в выражении.
Так что однозначно говорить что процедура не может возвращать результат нельзя.

Виталий, это неявная функция.(очень плохой стиль)

Я в курсе, потому и написал что это изврат.

[Пепел Феникса]

Так что однозначно говорить что процедура не может возвращать результат нельзя.

это правда, вообще есть термин подпрограмма.

[chertovich]

Сообщение от Аватар

chertovich речь же не о этом, а об обязательном использовании конструкции a:=MyProcedure

Вопрос в теме звучал конкретно:

Как сделать, чтобы процедура ввернула число?

Я, в данном случае, отвечал на него.

Вы же отвечели на вопрос:

Что должно быть в процедуре MyProgecedure, чтобы она вернула значение?

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