Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Необязательный var-параметр в процедуре [D7, D2005]

Михаил © (2013-02-19 17:31:00)
Как создать процедуру с необязательным var параметром?
Аналогом является BlockRead
procedure BlockRead(var F: File; var Buf; Count: Integer [;var Result: Integer]);
Т.е. Result можно указывать при вызове, можно не указывать. Мне тоже самое нужно. Как описать такую процедуру?
Нужно именно var-параметр. Как объявить необязательный параметр для передачи по значению я знаю.

Германн (2013-02-20 01:05:00) [1]

> Dimka Maslov © (19.02.13 18:05) [9]

+
Всё что относится к модулю System - Compiler Magic.

Dimka Maslov (2013-02-19 18:05:00) [2]
procedure Proc(Res: PInteger = nil);
begin
if Assigned(Res) then Res^ := 100500;
end;

BlockRead, Reset, Rewrite - это compiler magic, на них требования синтаксиса не распостраняются.

Михаил (2013-02-19 17:58:00) [3]
Всем спасибо!!!

Михаил (2013-02-19 17:57:00) [4]

> Вячеслав (19.02.13 17:53) [6]

Функцию можно, просто у меня там вообще 2 необязательных var-параметра нужно. Думал что это просто сделать, раз в BlockRead, Reset, Rewrite ... есть такие. Ну раз это нереально или сверхгеморно, лучше сделаю перегрузку (overload)

Вячеслав (2013-02-19 17:53:00) [5]
procedure test(a : integer; var n : integer); overload;
begin
...
end;

procedure test(a : integer); overload;
var
n : integer;
begin
test(0, n);
end;

P.S. а функцию не проще использовать и игнорировать результат?

Михаил (2013-02-19 17:51:00) [6]

> Ega23 © (19.02.13 17:47) [3]

А как сделали в BlockRead параметр Result необязательным?

Михаил (2013-02-19 17:50:00) [7]
Смотрел реализацию. Там вообще что то все непонятно.

function _BlockRead(var f: TFileRec; buffer: Pointer; recCnt: Longint; var recsRead: Longint): Longint; ...... function _BlockRead(var f: TFileRec; buffer: Pointer; recCnt: Longint; var recsRead: Longint): Longint; begin Result := BlockIO(f, buffer, recCnt, recsRead, fmInput, {$IFDEF MSWINDOWS} ReadFileX, {$ENDIF} {$IFDEF POSIX} __read, {$ENDIF} 100); end;

Здесь параметры называются совсем по другому, нежели при вызове. И нигде не видно что четвертый параметр необязательный

Ega23 (2013-02-19 17:47:00) [8]
function BlockRead(var F: File; var Buf; Count: Integer): Integer; var i: Integer; begin BlockRead(F, Buf, Count); if SomeCondition then i := BlockRead(F, Buf, Count); end;

А var-параметр "по-умолчанию" нельзя сделать по-определению.

Ega23 (2013-02-19 17:45:00) [9]
сделай функцию.

Плохиш (2013-02-19 17:45:00) [10]
Самый быстрый способ - посмотреть реализацию в исходниках.

PS. Даю 90%, что это compiler magic.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »