Функция SetPosition

Назначение

Функция предназначена для получения значения текущей позиции из VIP.

Описание

SetPosition : comp;

Возвращаемое значение

Функция возвращает значение текущей позиции.

Смотрите также

ReturnPosition

Пример

interface noTable doAccept;
  const LENGTH=5;
  end;
  create view;
	var i : integer;
	var mas : array [1..1] of integer;
  browse depBrowse5 noTableNavigation;
	fields
	mas[i] 'Элемент массива' : protect;
	i 'Позиция';
  end;
  handleEvent
	cmInit: {
	mas[1]:=20; mas[2]:=38; mas[3]:=12;
	mas[4]:=-12; mas[5]:=0; i:=1;
}
	cmDoGetPrev : {
	if i<=1 then Abort;
	if i>1 then i:=i-1;
}
	cmDoGetNext : {
	if i>=LENGTH then Abort;
	if i<LENGTH then i:=i+1;
}
	cmDoGetLast : i:=LENGTH;
	cmDoGetFirst : i:=1;
	cmGetAddr : ReturnPosition(i);
	cmGetDirect : i:=SetPosition;
	cmDoFind : {
	var j : integer;
	var str : string;
	str := SearchValue;
	for(j:=1;j<=Length;j:=j+1)
		if SubStr(string(mas[j]),1,Length(str)) = str then
		{ i:=j; RescanPanel(tnNoTable); Exit; }
	Abort; } //не нашли
  end;
end.