Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Program is too large
Message
De
23/05/2002 10:54:47
 
 
À
23/05/2002 03:17:05
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Problèmes
Divers
Thread ID:
00660269
Message ID:
00660483
Vues:
18
>I believe it has only one offending procedure that passed the 64K limit. Use strextract() to locate. ie:
>
>
>lcClassFile = upper(FileToStr('ProcedureFile.prg')) && I guess it's a procedure file already
>lnOccurs = ('PROCEDURE',lcClassFile)
>for ix = 1 to lnOccurs
> lcProc=strextract(lcClassFile,'PROCEDURE','PROCEDURE',ix,3)
> if len(lcProc) > 65500
>    ? mline(lcProc,1)
> endif
>endfor
>
The refactoring allowed me to proceed. So, the method is now lower than 65k.
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform