Append[ICP]

function Append(curs : tcurstab) : trecnum;
trecnum [cd_]Append([cdp_t cdp], tcurstab curs);
function [cd_]Append([cdp : cdp_t]; curs : tcurstab) : trecnum;

Parametry

Popis

Funkce Append p°idßvß nov² prßzdn² zßznam k tabulce nebo ke kurzoru curs za vÜechny existujφcφ zßznamy. Prvnφ provedenφ Append na urΦitou tabulku resp. kurzor m∙₧e chvφli trvat, proto₧e se musφ projφt vÜechny zßznamy pat°φcφ do tabulky resp. kurzoru.

Ve funkci Append nelze pou₧φt kurzory vzniklΘ spojenφm vφce tabulek.

V p°idanΘm zßznamu budou vÜechny sloupce mφt hodnoty NONE dle sv²ch typ∙ nebo implicitnφ hodnoty definovanΘ v nßvrhu tabulky. Jsou-li v tabulce definovßna integritnφ omezenφ, bu∩ musφ b²t spln∞na na implicitnφch hodnotßch, anebo jeÜt∞ ve stejnΘ transakci musφ b²t do sloupec; zapsßny vyhovujφcφ hodnoty.

Funkce Append provedenß na tabulku je toto₧nß s funkcφ Insert. P°i provedenφ na kurzor se vÜak liÜφ - Append vlo₧φ zßznam na konec tabulky, do nφ₧ kurzor vede, Insert vyu₧ije volnΘ mezery v tabulce po smazanΘm a uvoln∞nΘm zßznamu.

Hodnota funkce

Funkce vracφ absolutnφ Φφslo p°idanΘho zßznamu. Toto Φφslo lze po provedenφ Append pou₧φt pro zßpis do p°idanΘho zßznamu v tabulce resp. kurzoru curs, kam byl nov² zßznam p°idßn. Vrßcenß hodnota je o 1 menÜφ ne₧ hodnota, kterou by vrßtila funkce Rec_cnt zavolanß po Append.

Pokud se operace neprovede, vracφ se hodnota -1. Povahu chyby lze pak zjistit volßnφm funkce Signalize.

P°φklad

table 
   TAB1;
var
   cislo : trecnum; 
begin
  cislo := Append(TAB1);
  TAB1[cislo].jmΘno := "Josef";  
  ... 

Viz

• Insert
• Delete
• Undelete
• Free_deleted
• Rec_cnt