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;