unit mem_utils;
interface

type TMem = object
       init : boolean;
       s : longint;
       p : pointer;
       function init_mem : boolean;  // Init Mem, if there is still some memory reserved free it first
       function free_mem : boolean;  // Free all Mem, if there is some memory reserved
       function isinit : boolean;  // haben wir schon Daten im Objekt ?
       function setfrom_mem( source : TMem) : boolean; // macht eine exakte Kopie von einem anderen MemObjekt zu unserem
       // from here it's old mem_* Stuff ;-)
       function show : string;  // = Mem_Show
       function data2Str : string; // =mem2str
       function cat(cat_p : pchar; cat_s : longint) : boolean; overload; // h鋘ge den cat_p an p an
       function cat(source : TMem) : boolean;   overload;
     end;

type TMemWeb = object(TMem)
        function FirstLine_arrived : boolean;
        function FirstLine_Get(VAR new_size : longint) : pchar;   // reserviert Speicher f黵 R點(diǎn)kgabewert; #13 mu