{==============  FICHIER DE EDNUM  ======================}
{ Programm pricipal EDnum.pas usinage sur machines c.n.  }
{ programmation Pascal                                   }
{ Copyright (S) 1997-2011                                }
{ programmeur du programme A.Ara                         }
{ 64150 Mourenx - France.                                }
{ Licence d'utilisation accord dans un but démonstratif  }
{ Unite Type_Buf.pas pour EDnum.pas c.n du bois num750   }
{ Numero de serie 00-331-7431-A1133071e                  } 
{========================================================}
{=================  FICHIER DE EDNUM  ===================}
{ Types publiques de fuffers destines a l'editeur        }
{ Max_Buffer=64512;      63 Ko.                          }
{ Max_Buffer_Copy=5120;  5  ko                           }
{========================================================}

{$O+,F+}

Unit Type_Buf;


Interface      {**Types publiques de fuffers destines a l'editeur**}


Const
      Max_Buffer       = 30720; {**64512 | 63 Ko.**}
      Max_Buffer_Copy  = 5120;  {**5 ko**}

Type
      Str12 = string[12];

      {**Liste de fichiers Load dir**}

      ListePtr = ^L_ptr;
      L_Ptr    = Record
                    Num:integer;
                    Nom:Str12;
                    Avan,Suivan:ListePtr;
                 end;

      Edit_Buffer = Array[1..Max_Buffer+512] of Char;
      Buf_Ptr     = ^Edit_Buffer;

      Copy_Edit_Buffer = Array[1..Max_Buffer_Copy+512] of Char;
      Copy_Buf_Ptr     = ^Edit_Buffer;

      Ligne__Copy = Array[1..254] of char;
      Ligne_Copy  = ^Ligne__Copy;

var
    Buffer       : Buf_Ptr;              {*Buffer de l'Editeur    *}
    Copy__Buffer : Copy_Buf_Ptr;         {*Buffer de Blocs Copy   *}
    CopyLigne    : Ligne_Copy;           {*ligne du curseur       *}

Implementation

begin
   Buffer:=Nil;
   Copy__Buffer:=Nil;
   CopyLigne:=Nil;
end.

©® document original sources pascal
  
Page Last Updated: Juin 27, 2011 | Page Editor: A. Ara | SiteMap Dans Une Autre Galaxie
Cet emplacement web non-commercial, et totalement libre & indépendant de tout les parti politique ou d'organisme officiel de toute nature. Nous réflexions sont exclusivement l'avis de personnes qui rejettent le massacre que la société fait aux animaux pour tout motif.