Ma Sei sicuro che il codice che hai postati funziona??? hai fatto almeno un debug Step-by-step ? (F8)
Secondo me ci sono molte cose sembrano buttate giù per fare dei test e poi non cancellate il che provoca molto "pasticcio" nel codice, ad esempio dichiari 16 variabili locali, ma ne usi solo 3 ...le altre 13?? sempre nello stesso codice usi delle variabili globali? locali della classe TForm?? dove sono ? chi sono? in che stato sono?
Così ad occhio (come dice nessuno) la if alla riga 46 sarà sempre false (forse in alcuni casi .. la ritrovi a true e allora funziona), dunque il tuo stream rimane incastrato sino alla distruzione dell'applicativo ...
Secondo il mio modesto parere ... c'e' molto da rivedere anche se metti a posto la riga 46 ... Ti conviene fare un bel refactoring di tutto il codice se l'andazzo è quello che hai postato ... hai troppe veriabili volanti che non sembrano girare secondo un flusso logico ... poi ... io non sono un professionista, ma solo un semplice hobbista ..la palla passa a chi ci capisce di più ...
G.
Ibis redibis non morieris in bello |