Funkce Super

Super_recnum

function Super_recnum(subcursor, supercursor : tcursnum; subrecnum : trecnum; var superrecnum : trecnum) : Boolean;
BOOL [cd_]Super_recnum([cdp_t cdp], tcursnum subcursor, tcursnum supercursor, trecnum subrecnum, trecnum * superrecnum);
function [cd_]Super_recnum([cdp : cdp_t]; subcursor, supercursor : tcursnum; subrecnum : trecnum; var superrecnum : trecnum) : Boolean;

Parametry

subcursor	subkurzor kurzoru supercursor
supercursor	prom∞nn² nebo otev°en² pevn² kurzor - viz podrobnosti
subrecnum	Φφslo zßznamu v kurzoru subcursor
superrecnum	v²stupnφ parametr: Φφslo zßznamu v kurzoru supercursor
[cdp	kontextovß prom∞nnß klienta]

Popis

Funkce Super_recnum p°evßdφ Φφslo zßznamu v subkurzoru na Φφslo tΘho₧ zßznamu v superkurzoru, tedy v kurzoru, z n∞ho₧ je subkurzor odvozen. M∙₧e provΘst tutΘ₧ akci pro dva kurzory vytvo°enΘ nad stejnou tabulkou - viz p°φklad.

Hodnota funkce

Funkce vracφ FALSE p°i ·sp∞chu, TRUE p°i chyb∞.

P°φklad

procedure synchronizace(vzor, cφl : window_id);
var irec, erec, cφl_rec : trecnum;
    vzor_curs, cφl_curs : cursor;
    flags : short;
{ Nastavφ pohled "cφl" na stejn² zßznam jako pohled "vzor" }
begin
  if Get_view_pos(vzor, irec, erec) then
    if Get_fcursor(vzor, vzor_curs, flags) then
      if Get_fcursor(cφl, cφl_curs, flags) then
        if not Super_recnum(vzor_curs, cφl_curs, erec, cφl_rec) then
          Set_ext_pos(cφl, cφl_rec, -1);
end;

Viz