Tema: Excepciones
Ver Mensaje Individual
  #6  
Antiguo 14-12-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Podrías utilizar un TStringList en el que almacenes las excepciones que se vayan produciendo en las vueltas del bucle y presentarlas al final de éste:

Código Delphi [-]
var
  Errores: TStringList;

begin
  Errores := TStringList.Create;

  try
    while condición do
    begin
      try
        { código propenso a errores }
      except
        on E: EConvertError do
          Errores.Add(E.Message);
      end;
    end;

    (* Mostrar errores en un memo, por ejemplo *)
    Memo1.Lines.AddStrings(Errores);
  finally
    Errores.Free;
  end;
end;

// Saludos
Responder Con Cita