Как передать в функцию переменную любого типа?, как сделать что-то типа readln или writeln, передавая в параметре любу Опции

[kramolnic]

Возникла необходимость написать процедурку, которая будет выводить текст с форматированием относительно окна (по центру, справа, слева и т.п...)... Стандартная процедура ReadLn или WriteLn да и куча им подобных может принимать в качестве параметра переменную любого типа и работать с ней.. можно распечатать и String и Integer... а как объявить свою процедуру, чтобы она могла делать так же?? то есть как не привязывать параметр к определенному типу??
P.S. параметр должен передаваться по ссылке (со словом var).

[volvo]

Стандартная процедура ReadLn или WriteLn

Ошибка... ReadLn/WriteLn - это макросы, ничего общего с процедурами не имеющие... А чтобы передать любой параметр, передавай его вообще без типа:

Procedure p(Var X);
begin
end;

(только тогда ты должен будешь привести внутри процедуры переменную X к нужному типу)...

Вообще, разговор получается беспредметный. Приведи пример, ЧТО именно ты хочешь делать в процедуре, и КАК вызывать ее, посмотрим, что для этого можно сделать... Общий случай здесь не пойдет...

[kramolnic]

Ошибка... ReadLn/WriteLn - это макросы, ничего общего с процедурами не имеющие... А чтобы передать любой параметр, передавай его вообще без типа:

О как! а я то думал, что процедура, объявленная где нить в дебрях паскаля...
ну скажем, хочу я вывести число по центру, а ниже строку, юзая свою процедуру или что там... Вызываем это дело, например, так...:

Код

var
  k: integer;
  s: string;
begin
  k:= 2345;
  s:= 'This is my text';
  WriteCenter(k);
  writeln('');
  WriteCenter(s);
end;

вот как эту WriteCenter описать, чтобы она обе переменные нормально приняла (тип-то разный), вычислила координаты X, Y, куда выводить строку (видимо, все равно придется к Stringу привести, чтобы число символов посчитать), сделала GoToXY и потом Write(param), где param - параметр, передаваемый процедуре...

Сообщение отредактировано: kramolnic - 15.03.2007 22:40