IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)

La Commande Numérique sur la Production Bois

Date de publication : 06/03/2010. Date de mise à jour : 03/07/2011.


   

 


Type_Buf.PAS


Type_Buf.PAS


{==============  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.

   

 

 

Valid XHTML 1.0 TransitionalValid CSS!

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2011 A. Ara. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.