Funkce Delete

Delete

function Delete(curs : tcurstab; position : trecnum) : Boolean;
BOOL [cd_]Delete([cdp_t cdp], tcurstab curs, trecnum position);
function [cd_]Delete([cdp : cdp_t]; curs : tcurstab; position : trecnum) : Boolean;

Parametry

curs	deklarovanß tabulka nebo otev°en² kurzor - viz podrobnosti
position	absolutnφ Φφslo ruÜenΘho zßznamu.
[cdp	kontextovß prom∞nnß klienta]

Popis

Funkce zruÜφ zßznam s Φφslem position v kurzoru nebo tabulce curs. Provedenφm Delete se nezm∞nφ absolutnφ Φφsla ostatnφch zßznam∙.

ZruÜφte-li zßznam v kurzoru vzniklΘm spojenφm vφce tabulek, pak je pouze odstran∞n z kurzoru. ZruÜφte-li zßznam v kurzoru vzniklΘm z jedinΘ tabulky, pak je odstran∞n z kurzoru a zruÜen v tabulce. Pokud je zßznam urΦen² parametry funkce ji₧ zruÜen², server vydß varovßnφ.

Hodnota funkce

Funkce vracφ hodnotu FALSE, pokud se akci poda°ilo ·sp∞Ün∞ provΘst. V opaΦnΘm p°φpad∞ vracφ TRUE a povahu chyby lze zjistit volßnφm funkce Signalize.

P°φklad 1

// zruÜenφ vÜech zßznam∙ v tabulce TAB1 
if not Rec_cnt(TAB1,limit) then 
  for i:=0 to limit-1 do
    if not TAB1[i].deleted then
      Delete(TAB1,i);

P°φklad 2

//smazßnφ a znovuvytvo°enbφ objektu
if not Find_object("MP",CATEG_PGMSRC,pomid) then 
 if Delete(Objtab,pomid) then Signalize
 else
   if not Insert_object("MP",CATEG_PGMSRC,pomid) then begin
      Objtab[pomid].DEFIN:=...

Viz