RunError(219)

[bonmario]

Ciao a tutti,
ho un problema che mi assilla da qualche mese e di cui non ho ancora trovato la soluzione.
Allego un progetto creato all'occorrenza per simulare la casistica dell'errore.
Praticamente il problema è questo: il programma lanciato da "Esplora risorse" non da nessun errore. Lanciato dall'IDE, magari perché serve fare un debug, da l'errore "RunError(219)" per ogni elemento della TStringList.

Qualcuno sa dirmi come posso fare per evitare di avere questo fastidioso problema quando lancio dall'IDE?


Grazie in anticipo, Mario

[xinyiman]

E' giusto così, in fase di esecuzione dall'ide la gestione degli errory try except non funziona. Funziona solo sull'eseguibile finale. Quindi mi sembra corretto il tuo codice!

[bonmario]

Peccato ... nell'esempio che ho riportato ci sono solo 10 elementi, ma se mi devo mettere in debug dopo quel punto, con una stringlist di 1000 elementi, non mi passa più !!!

Volevo chiedere una cosa riguardo al mio codice: nel progetto principale, alla riga 63, eseguo questa istruzione:

Codice: [Seleziona]

FreeAndNil(ObjStr);

Ho notato che se cancello quell'istruzione non ho più l'errore 219 nemmeno dall'IDE. Però, se mi ricordo ancora qualcosa di quando studiavo il Pascal a scuola, togliendo quell'istruzione lascerei delle aree di memoria sporche. E' corretto?

Ciao, Mario

[xinyiman]

Non avevo visto che usavi quel comando, la soluzione al problema è li: toglilo.

Guarda questo al riguardo
http://www.freepascal.org/docs-html/rtl/sysutils/freeandnil.html

La memoria viene pulita comunque quando si termina il programma!

[Legolas]

Per liberare le risorse prima della chiusura puoi usare:

Codice: [Seleziona]

  ObjStr.Clear;  // rimuove tutte le righe
  ObjStr.Free;   

Il "Clear" non è strettamente necessario, ma male non fa

L'errore 219 è però legato a tutt'altro. Dalla guida di freepascal:

219 Invalid typecast
 Thrown when an invalid typecast is attempted on a class using the as operator. This error is also thrown when an object or class is typecast to an invalid class or object and a virtual method of that class or object is called. This last error is only detected if the -CR compiler option is used.

[bonmario]

Avevo questo problema da mesi.
Stamattina ho fatto un tentativo e sembra che adesso sia tutto ok.
Ecco com'è adesso la procedura:

Codice: [Seleziona]

procedure PulisciLista(var WrkLista:TStringList; TipoPulizia:TTipoPulizia);
var IdxPuli:Integer;
begin
  if Assigned(WrkLista) then begin
    for IdxPuli:=0 to WrkLista.Count - 1 do begin
      //bonmar//try
        //L'istruzione qui sotto l'ho aggiunta per evitare di avere un
        //RunError(219) quando lanciavo il programma dall'IDE
        if (WrkLista.Objects[IdxPuli] is TObject) then begin
          if Assigned(WrkLista.Objects[IdxPuli] as TObject) then begin
            WrkLista.Objects[IdxPuli].Free;
          end;
        end;
      //bonmar//except
      //bonmar//  //Se l'oggetto è stato aggiunto tramite l'istruzione "TObject(Pointer(",
      //bonmar//  //senza creare il tipo, questa istruzione dava un errore
      //bonmar//end;

      //In ogni caso inizializzo il puntatore
      WrkLista.Objects[IdxPuli]:=Nil;
    end;

    case TipoPulizia of
      tpClear:WrkLista.Clear;
      tpFree:FreeAndNil(WrkLista);
      tpSoloOggetti:IdxPuli:=IdxPuli;  //Se devo solo pulire gli oggetti non devo fare più niente
    end;
  end;
end;

Ciao, Mario