Newsgroup: it.comp.lang.pascal
Titolo: tp for windows 1.5

Cari amici, mi sono imbattuto in Turbo Pascal for Windows 1.5 di Borland
(copyright 1991, 1992)
e adesso ho un bubbone che non riesco a digerire. Purtroppo le uniche
informazioni che sono riuscito a reperire si riferiscono a qualche listato
di esempio e ad un libro, che piu che narrare qualcosa su questa versione,
deambula in discorsi oziosi che hanno la capacita di trasformare le poche
certezze che uno ha acquisito nell'esperienza in dubbi atroci e amletici.
Confido nel vostro aiuto poichè sicuramente vi sarete cimentati con questo
compilatore specifico. L'obiettivo è la creazione di una agenda telefonica
(un file TXT). Un esempio come questo sarebbe alquanto sufficiente per
comprendere come ci si deve muovere anche perchè vengono richieste attività
gestionali universali (aggiungi, modifica, elimina, cerca, ecc) .
Vi propongo due dubbi:
- Il primo riguarda l'eccezione "Structure too large". Ricordo quest'errore,
diverso tempo fa si verificava anche in BASIC (che la pace sia con lui).
- Il secondo è che mi sono "incartato" con le dichiarazioni ed i tipi.
Problema 1.
================================================================
La seguente dichiarazione di tipo non funziona poichè emerge una eccezione
"Structure too large"
type
    contatto = record                   {Struttura del record}
               cognome: string;
               nome: string;
               ntel: string;
               end;
modificandola nella successiva ha funzionato. Non so perchè ma credo
comunque che una limitazione sia fondamentale per il pascal.
type
    contatto = record                   {Struttura del record}
               cognome: string[20];
               nome: string[20];
               ntel: string[15];
               end;
Sbaglio io, oppure il pascal vuole i campi ben dimensionati almeno per
quello che concerne le string?
Problema 2.
====================================================================
Avendo difficoltà nel reperire istruzioni specifiche per l'accodamento credo
si possa leggere il file e memorizzare i record in tre matrici, una per
campo, per poi accodare in memoria e riscriverli globalmente. Qui mi sono
perso e non riesco a immaginare come impostare i necessari TYPE e VAR.
type
    contatto = record                   {Struttura del record}
               cognome: string[20];
               nome: string[20];
               ntel: string[15];
               end;
    agenda = file of contatto;          {Questo è il file}
var
    ct : contatto;                      {CT si fa carico della tipologia
CONTATTO}
    ag : agenda;                        {AG si fa carico della tipologia
AGENDA}
    i, opzione: integer;                {I come contatore e OPZIONE per
definire scelte}
procedure aggiungicontatto; {per aggiungere un nuovo contatto}
begin
assign(ag,'agenda.txt');
{Carico in memoria i dati memorizzati nell'agenda}
reset(ag);
         i:=1;
         while not eof(ag) do
         begin
         read(ag, ..............
         ................
         ................
         ................
         ................
         end;
.............. loop per accodare una serie di nuovi cognomi, nuovi nomi e
nuovi tel alla matrice esistente
.............. al termine del loop riscrivi tutto nel file
close(ag);
end;
Grazie per l'aiuto
Alessandro


Uhm?
[CUT]
Non capisco cosa vuoi...
PS: Passa a delphi
risparmerai mooolto tempo
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

> PS: Passa a delphi
sicuramente esistono tantissimi linguaggi che come il delphi possono
risolvere questo problemino se non in 15 minuti almeno in 16, del resto sono
uno sviluppatore anch'io ma mi occupo di grammatiche generative, una storia
diversa. Se uno, per tradursi una frasetta di Orazio Flacco, dovesse
laurearsi in Latino il mondo si fermerebbe. So bene che il compilatore
citato non vale una mazza e so anche bene che con esso non potrò mai vivere
una "storia d'amore". Il fatto è che il mio problema si relaziona solo ed
esclusivamente con quel tipo di compilatore: stesso produttore, stessa
versione ed estensione di copyright. Da qui la necessità di poter trovare
una risposta (che non sia a sua volta una ulteriore domanda) all'interno di
un gruppo di competenti.
grazie per l'interessamento
alessandro

 e adesso ho un bubbone che non riesco a digerire. Purtroppo le uniche
[...]
per avere un programma simile al tuo come riferimento, vai sul sito in
firma, sezione sorgenti...
--
Ciao
Gianfranco Marchese
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
http://www.turbo-pascal.cjb.net
  Tutto sul Turbo
Pascal  1.5

firma, sezione sorgenti...
Lui vuole un programma Windows, non una spece di programma dos che
gira sotto windows in una finestra bianca con testo nero...


 - Il secondo è che mi sono "incartato" con le dichiarazioni ed i tipi.
per l'accodamento una volta aperto il file come per la lettura con
Reset, ti puoi spostare in fondo al file con Seek( F, FileSize(F) ) e
scrivere normalmente.   Caricare tutto in memoria funziona...
ma non e' mai la soluzione migliore :-)
Piu' che cercare informazioni specifiche sul tpw forse ti conviene
cercarne di generiche... mi ripeto oramai a livelli da arterosclerosi,
ma l'help del tp7 contiene tutto e di piu' per programmare in pascal.
Per la gestione delle api di win invece, non saprei aiutarti :-\
-- 
Dreadnaut
(Life would be easier if I had the source code)
 
http://dreadnaut.servebeer.com/

 gira sotto windows in una finestra bianca con testo nero...
se e' cosi' vai in questo sito: 
http://twentybytes.cjb.net/
nella sezione altri programmi, ce ne sono 4 miei scritti in delphi, tra cui
una rubrica, forse questa va bene?


una rubrica, forse questa va bene?
Delphi è una cosa seria
TPFW è na schifeza


 TPFW è na schifeza
e che ha mai detto il contrario??? delphi e' la mia vita :-)))))))))


e che ha mai detto il contrario??? delphi e' la mia vita :-)))))))))
Allora perke incoraggi l'uso di TPFW? Di fatti io se devo fare un
progeamma Dos uso BP se ne devo fare uno windows prendo Delphi
per me TPFW e solo un nonno di delphi da chiudere in Ospizio


 per me TPFW e solo un nonno di delphi da chiudere in Ospizio
preciso che non uso il tpw , uso il bpw con target win , anche se e'
indifferente. solo per curiosita', uso il bpw perche' ha a disposizione una
guida migliore. uso il bpw con target win perche' scrivere applicazioni per
dos non mi piace molto, e a volte da problemi, come il problema della crt
che va modificata, ecc ecc, e per evitare scocciature taglio la testa al
toro:-))) cmq preciso che il bpw non lo uso quasi piu', ormai impiego il mio
tempo con delphi. ritorno al vecchio pascal solo per dare aiuto ad amici,
per la gestione del sito (esercizi, sorgenti, ecc), e per la scuola, che
ancora oggi si ostina ad optare per il pascal, spero per motivi didattici.
cmq consiglio il tpw, perche' altro e' dire ad una persona cambia
compilatore altro e' dire cambia linguaggio, o meglio ambiente, non credi?
passare al delphi non e' cosi' immediato. tramite il tpw ho imparato ad
usare gli oggetti in funzione della programmazione windows, anche se vista
la mole di dati da conoscere sono passato al delphi. dire quindi che il tpw
e' da mandare in pensione e' un po' eccessivo, e' obsoleto senza dubbio,
pero' puo' essere utile, no?


pero' puo' essere utile, no?
Il TPW secondo me no. Il BP ( dos ) si. visto che per esempio mi sono risctitto
( in parte non ho mai tempo per finirla ) la turbo vision cosa che in windows sarebbe
impensabile visto che li dovrei per forsa usare CreateWindow e RegisterClass


 e in fine sono arrivato al Delphi
pure io, dopo un due annetti di pascal sono approdato al delphi
