[ALexandr555]

вот к примеру объявил тип

Код:

type
  PAI = record 
    pos: integer;
    index: integer;
  end;

и мне нужно вызвать функцию

Код:

function timer(nomer: PAI): string;

могу ли я как то вызвать не объявляя в том месте переменную PAI

Код:

var
n:PAI;
begin
n.pos:=1;
timer(n);

а проще что то вроде

Код:

timer((1,0))

не?

[Pyro]

PHP код:

timer(ai(1,0)) 


PHP код:

function ai(...): pai;
... 


[ALexandr555]

ну собственно так тоже можно..
значит ничего для этого нету в Delphi ?

[nixel]

Вы же явно указываете тип параметра. Зададите другой тип - вылетит "Неверный формат данных". А в данном случае еще и неверное количество переменных.
Так что самый простой вариант - создать функцию, как указал выше Pyro.

[icWasya]

Явно такого нет. Но можно сделать чуть побольше кода в одном месте, что бы в остальных писать поменьше. Например так сделан TRect.
И тапы по-дельфийски надо называть в буквы T.

Код:

type
  TAI = record 
    pos: integer;
    index: integer;
  end;

function AI(Pos:Integer; Index:Integer):TAI;// добавляем вот такую функцию

...
implementation
function AI( Pos:Integer; Index:Integer):TAI;
begin // а здесь реализация
  Result.pos := Pos;
  Result.index:=Index;
end;

....

ну и потом

Код:

  timer(AI(1,0))

[NumLock]

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

могу ли я как то вызвать не объявляя в том месте переменную PAI

да, запросто:

Код:

type
  PAI = ^TAI;
  TAI = record
    pos: Integer;
    index: Integer;
  end;

function timer(val: TAI): String;
begin
  Result:=IntToStr(val.pos)+':'+IntToStr(val.index);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption:=timer(PAI(PChar(#64#8#0#0+#220+#7#0#0))^);
  // 2112:2012
  // 2112 = 840h = 8h, 40h = 0, 0, 8, 64
  // 2012 = 7DCh = 7h, DCh, 0, 0, 7, 220 
end;