Lekce 1.37
Zpracovßnφ memopolo₧ek z programu

S memopolo₧kami m∙₧ete pracovat dv∞mi zp∙soby. Bu∩ k nφ p°istupujete jako k textu (je mo₧nΘ pracovat v₧dy s konkrΘtnφm zadan²m odstavcem), nebo k p°istupujete celkov∞. P°i textovΘm p°φstupu musφte poΦφtat s tφm, ₧e lze takto zpracovßvat pouze memopolo₧ky do dΘlky 64 Kb na jeden zßznam.

Obsah zadanΘ memopolo₧ky jednoho zßznamu je mo₧nΘ p°evΘst do textovΘ prom∞nnΘ procedurou DbfReadBin. Obdobn∞ je mo₧nΘ p°esunout obsah prom∞nnΘ do memopolo₧ky procedurou DbfWriteBin. UvedenΘ procedury je mo₧nΘ pou₧φt pro zpracovßnφ memopolo₧ek libovolnΘ dΘlky. Podobn∞ je mo₧nΘ pou₧φt proceduru DbfFileToBin pro zßpis obsahu souboru na disku do memopolo₧ky a proceduru DbfBinToFile pro zßpis memopolo₧ky do souboru.

Obsah textovΘ prom∞nnΘ lze ulo₧it do memopolo₧ky procedurou DbfWriteMem. NaΦφst obsah memopolo₧ky je mo₧nΘ procedurou DbfReadMem. Memopolo₧ka nesnφ mφt v tomto p°φpad∞ rozsah v∞tÜφ ne₧ 64 Kb. Memopolo₧ku obsahujφcφ text je mo₧nΘ naΦφtat postupn∞ po odstavcφch. Po°adovΘ Φφslo indexu se udßvß parametrem index v po°adφ od jedniΦky. Pokud budete chtφt naΦφst najednou celou memopolo₧ku, zadejte nulov² index. V tomto p°φpad∞ bude z naΦtenΘho °et∞zce odstran∞n znak #10 pro mo₧nost zobrazenφ v textovΘm v²stupnφm okn∞.

{kompletnφ v²pis memopolo₧ky do textovΘho v²stupu}
Procedure vypis;
Var x, z: integer;
begin
   z := DbfMemoCount('poznamka');
   if z > 0 then
   begin
      ConsoleClear;
      for x:= 1 to z do
          Writeln(DbfReadMem('poznamka', x));
   end else
       Writeln('P°ekroΦen rozsah memopolo₧ky');
   end;
end;