home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / internet / BIBLECD / ODKAZY.ZIP / POMOCNE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-09-28  |  886 b   |  37 lines
  1. unit Pomocne;
  2.  
  3. interface
  4.  
  5. {Posune s ukazatelem typu Pointer o tolik Bytu v pameti, kolik je parametr "okolik".}
  6. procedure PosunUkazatel(var p:Pointer;okolik:Integer);
  7. {Pokus o binarniho zapsani do textoveho souboru f. Zapise se cast pameti
  8. s pocatecni adresou "adresa", "pocet" je pocet zapsanych Bytu.}
  9. procedure Zapis(var f:Text;var adresa;pocet:Word);
  10.  
  11. implementation
  12.  
  13. procedure PosunUkazatel(var p:Pointer;okolik:Integer);
  14. type    tub=^Byte;
  15. var    ub:tub;
  16. begin
  17.  ub:=p;Inc(ub,okolik);p:=ub;
  18. end;
  19.  
  20. procedure Zapis(var f:Text;var adresa;pocet:Word);
  21. const   n=250;
  22. var    s:String;
  23.     adr:Pointer;
  24. begin
  25.  adr:=Addr(adresa);
  26.  while (pocet>n) do {Retezec je v Pascalu dlouhÿ max. 255 znakû!!!}
  27.  begin
  28.   s[0]:=Chr(n);Move(adr^,s[1],n);Write(f,s);
  29.   PosunUkazatel(adr,n);Dec(pocet,n);
  30.  end;
  31.  s[0]:=Chr(pocet);Move(adr^,s[1],pocet);
  32.  Write(f,s);
  33. end;
  34.  
  35. begin
  36. end.
  37.