Error "class String Not Valid"

[toro2186]

Hola señores , tengo la semana entera buscando informacion sobre el error "Class string not valid". Evidentemente que es una cadena de clase no valida pero busco informacion sobre eso y no encuentro. Soy nuevo en delphi y se que ahora entenderan porque lo digo .- Si alguien me puede ayudar lo agradeceria.


Gracias

[dec]

Hola,

He buscado en la ayuda de Delphi en general; por los mensajes de error del compilador; en Google por la cadena de error exacta y no aparece ningún resultado...

Si te encuentras con ese error al tratar de compilar, o, en todo caso, tal vez sería bien que refirieras aquí al menos la parte del código fuente (¿la línea/instrucción quizás?) en que obtienes el error.

[ContraVeneno]

Tambien podrías usar una instrucción mas o menos como sigue para tratar de definir de que tipo de error estamos hablando o poder tener un poco más de información respecto a este error:

Código Delphi [-]
try
... //aquí la instrucción donde marque el error
except on E:Exception do begin
  showmessage('Clase: 'E.ClassName+' - Mensaje:'+E.Message);
  raise; //¿necesario?
 end; //Fin except
end; //Fin try

Aclaro que este código es solo para conocer más acerca del error que te marca;
de cualquier manera bienvenido al foro y no te olvides de leer la guía de estilo.

[vtdeleon]

Empezado por ContraVeneno

Código Delphi [-]
....
   raise; //¿necesario?
...

Ni Idea para que se usa. Vi un hilo que hicieron referencia sobre eso. No lo entendi

[ContraVeneno]

En muchos casos es necesario que coloques un raise para que cuando ocurra un error que no conoces o no esperas, sea mostrado... además porque este código captura cualquier error (E:Exception) cosa generalmente no debería suceder a menos que sepas exactamente que hacer.... bueno, en caso de que sea necesario, habrá que conocer sobre las excepciones, y habrá que revisar este hilo

en fin, la parte de "¿necesario?" es para este código en específico ya que en la parte del showmessage muestra la clase de error y el mensaje, cosa que tambien hace el raise, de ahí mi duda si era necesario en este código en específico.

[dec]

Hola,

Empezado por Contraveneno

En muchos casos es necesario que coloques un raise para que cuando ocurra un error que no conoces o no esperas, sea mostrado (...)

Raise eleva, como suele decirse, la excepción que se produzca.

Empezado por Contraveneno

en fin, la parte de "¿necesario?" es para este código en específico ya que en la parte del showmessage muestra la clase de error y el mensaje, cosa que tambien hace el raise (...)

No, exactamente. Obsérvese/pruébese el siguiente código:

Código Delphi [-]
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      try
        Pruebas;
      except
        ShowMessage('Estamos en Button1Click');
      end;
    end;
    
    procedure TForm1.Pruebas;
    var
      i,j: integer;
    begin
      i := 0; j := 0;
      try
        i := i div j;
      except
        ShowMessage('Estamos en Pruebas()');
        Raise;
      end;
      // Usamos la variable "i"
      Caption := IntToStr(i);
    end;

En este caso se producirá una excepción "EDivByZero" y se mostrará el mensaje "Estamos en Pruebas()", pero, puesto que "elevamos" la excepción mediante Raise y además hemos incluido la llamada al procedimiento "Pruebas" en un bloque "try .. except" también podremos ver el mensaje "Estamos en Button1Click".

Si no hubiéramos llamado al procedimiento "Pruebas()" en un bloque "try .. except" pero hubiéramos "elevado" la excepción, en este caso, la excepción seguiría hacia arriba hasta ser tratada por el método oportuno de la clase "TApplication" y veríamos el mensaje "Error: EDivByZero exception", luego de "Estamos en Pruebas()".

Si no incluyéramos la instrucción Raise se mostraría el mensaje "Estamos en Pruebas()" y ninguno otro, puesto que ese es el tratamiento, en este caso de ejemplo, que dimos a la excepción y no quisimos ir más allá elevando la excepción para que la rutina que llamara a la que la produjo pudiera tratarla por su parte.

Si añadiéramos una instrucción Raise dentro del bloque "try .. except" del evento "Button1Click" entonces podríamos ver tres mensajes, en este caso: el "Estamos en Pruebas()", el "Estamos en Button1Click" y por último, insisto, en este caso, el mensaje "Error EDivByZero" exception".