Rieccomi con le mie domande strane...
io, secoli fa, programmavo in Progress 4GL, era molto scomodo sotto molti punti di vista ma aveva una cosa molto furba: gli include.
ovvero tu potevi scrivere porzioni di codice in un file di testo.i e referenziarlo all'interno di qualunque programma. non parliamo di puntatori, oggetti, o altro ma di semplice testo. quando complilavi il sorgente il testo contenuto nell'include veniva semplicemente gestito come se fossero righe di codice come le altre.
mi spiego meglio, nei miei programmi dell'epoca utilizzavo delle varibili globali in ogni programma, siccome erano tante feci un bell'include con la dichiarazione di tutte le variabili globali di uso comune, l'include figurava così:
(nome file: swkgen.i)
def {&new} shared Var swkRit as char no-undo. /* var di rit. */
def {&new} shared Var swkAzie As Int. /* div.aziend */
def {&new} shared Var swkEser As Int. /* esercizio */
def {&new} shared Var swkEsIv As Int. /* esercizio iva */
def {&new} shared Var swkCute As Int. /* cod.utente */
def {&new} shared Var swkluse As Int. /* Liv.utente */
def {&new} shared Var swkTServ As char. /* Tipo Server */
[...]
all'interno del sorgente l'include veniva remplicemente referenziato con:
def var wkfine as log.
def var wkProg as i.
def var clfo as log.
{swk-gen.i}
[...]
dopodiche io potevo utilizzare all'interno del programma allo stesso identico modo la varibile wkfine che swkAzie.
allo stesso modo gli include si potevano usare per intere routine... era una cosa davvero comoda!
ora mi chiedo, esiste qualcosa del genere in Delphi? (io uso il 7, D10 e XE2)
Grazie
Rispondi quotando
