El operador as

[[seoane]]

Empezado por dec

¿De qué sirve la condición, si, pase lo que pase, se avanzará hasta la línea siguiente?

¿Estas seguro de que se sigue en la linea siguiente?

Me explico, si tenemos esto:

Código Delphi [-]
(Objecto as TEsteObjeto).Propiedad = 'Cadena';

y "Objeto" no es de la clase TEsteObjeto (o una descendiente), se genera una excepción y la siguiente linea de código a esta no se ejecuta (como ocurre con todas las excepciones). ¿no es así?

[dec]

Hola,

Pues sí... así es... pero, yo no llamaría a eso una "condición", entendiendo como condición algo como esto:

Código Delphi [-]
if Condicion then
begin
  // La condición se cumple
end
else
begin
  // La condición no se cumple
end;

No sé. Es que, tal como yo entendí lo que dijiste (mejor dicho, acaso podría entenderse, por lo que dijiste) que el mismo "as" hará que el "asunto" se ejecute si se cumple la "condición", pero, es que no parece que sea así: se levanta una excepción, la condición "no la evita". Pero, puede que esté desbarrando, ¿eh?

Si lo pienso un poco más, puede que lleves toda (no parte de) la razón, porque la "condición" impide que se siga adelante, y, por tanto, se obtenga una violación de acceso, como ocurre en el otro caso, mas, ¿no es ya la "EAccessViolation" un tipo de excepción? Lo dicho, algo se me escapa en este asunto. Acaso es mejor una que otra excepción... lo ignoro ahora mismo. Una cosa está clara: son distintas excepciones.

[jachguate]

Empezado por dec

como ocurre en el otro caso, mas, ¿no es ya la "EAccessViolation" un tipo de excepción? Lo dicho, algo se me escapa en este asunto. Acaso es mejor una que otra excepción... lo ignoro ahora mismo. Una cosa está clara: son distintas excepciones.

Aplicando directamente el molde, no siempre obtendrás un EAccessViolation. Podrías simplemente sobreescribir la memoria, y luego el programa tronaría sin saber por que.

No tengo delphi a mano, pero se me ocurre que podes comprobarlo de manera sencilla (por favor, corregí vos por mi los errores de sintaxis que pudiera haber:

Código Delphi [-]
type
  TClase1 = class
  private
    FNumero: Integer;
  public
    property Numero: Integer read FNumero write FNumero;
  end;

  TClase2 = class
  private
    FLineas: TStringList;
    procedure SetLineas(const Value: TStringList);
  public
    constructor Create;
    property Lineas: TStringList read FLineas write SetLineas;
  end;

implementation
  
constructor TClase2.Create;
begin
  FLineas := TStringList.Create;
end;

procedure TClase2.SetLineas(const Value: TStringList);
begin
  if Assigned(Value) then
    FLineas.Assign(Value)
  else
    FLineas.Clear;
end;

Código Delphi [-]
procedure TForm1.MezclarTodo;
var
  Instancia1: TClase1;
  Instancia2: TClase2;
begin
  Instancia1 := TClase1.Create;
  Instancia2 := TClase2.Create;
  Instancia1.Numero := 1500;
  Instancia2.Lineas.Add('Prueba');
  //Hasta aquí todo bien.
  //La línea siguiente, debiera ejecutarse sin problemas 
  TClase1(Instancia2).Numero := 50;
  //La excepción, como ves, se dará en la siguiente línea
  Instancia2.Lineas.Add('Esto truena!');
end;

Espero que funcione como yo lo espero , si no, ya veremos cuando tenga un delphi a mano.

Hasta luego.

[dec]

Hola,

Creo que funciona tal como esperas Juan Antonio. Sin embargo, sigue sin quedarme claro todo este asunto. No creo que "la gracia" esté en que algo así no compile, directamente:

Código Delphi [-]
(Instancia2 as TClase1).Numero := 50;

En esto me debe pasar como en tantas cosas, que, como no las conozco, ignoro su posible utilidad...

[jachguate]

Algo así compilaría... la ventaja es que estas seguro de obtener una excepción en caso de no corresponder la clase.

Por ejemplo:

Código Delphi [-]
begin
  try
    (Sender as TButton).Caption := 'Pulsado';
  except
    on EInvalidTypecast
      Label1.Caption := 'Lo siento, en este momento solo puede pulsar botones';
  end;

Hasta luego.

[dec]

Hola,

Eso digo. Pero por el tema de tener una excepción más oportuna, es decir, que esto otro:

Código Delphi [-]
begin
  try
    TButton(Sender).Caption := 'Pulsado';
  except
    on EAccessViolation do
      Label1.Caption := 'Lo siento, en este momento solo puede pulsar botones';
  end;

Podría ser problemático, porque el "EAccessViolation" podría venir de otro lado, no del "cast" en cuestión. ¿No?

Aún así me sigue sin entrar lo de la "condición" de que hablaba Seoane. ¿Dónde está la condición? En ambos casos se produce una excepción, salvo que son distintas excepciones. ¿No? Pero, si uno quiere una condición tiene que recurrir al operador "is", ¿o me equivoco?

[jachguate]

Empezado por dec

Hola,

Eso digo. Pero por el tema de tener una excepción más oportuna, es decir, que esto otro:

Código Delphi [-]
begin
  try
    TButton(Sender).Caption := 'Pulsado';
  except
    on EAccessViolation do
      Label1.Caption := 'Lo siento, en este momento solo puede pulsar botones';
  end;

Podría ser problemático, porque el "EAccessViolation" podría venir de otro lado, no del "cast" en cuestión. ¿No?

No solo eso, dec. Es probable que no haya EAccessViolation, como ya he demostrado en el ejemplo anterior (que vos has dicho que funcionaba como yo quería.

Empezado por dec

Aún así me sigue sin entrar lo de la "condición" de que hablaba Seoane. ¿Dónde está la condición?

Quizás he leido el hilo demasiado rápido... pero no veo a seoane mencionando ninguna condición... ¿donde lo ha hecho?

Hasta luego.