Sobrecarga de operadores de clase

[roman]

Empezado por Al González

yo sueño con el día en que pueda escribir en Delphi "expresiones de asignación" como

Código Delphi [-]
...

If ... Then
  If (A := B) > 10 Then  // <---
    ...

...

¡Anda! Ahora sí me sorprendiste. ¿Tú soñando con una característica típica del lenguaje C?

LineComment Saludos

[Casimiro Notevi]

Empezado por roman

¡Anda! Ahora sí me sorprendiste. ¿Tú soñando con una característica típica del lenguaje C?

Me lo has quitado de la boca...

[[Al González]]

Empezado por roman

¡Anda! Ahora sí me sorprendiste. ¿Tú soñando con una característica típica del lenguaje C?

El lenguaje C tiene algunas cosas muy buenas, Román.

[roman]

Empezado por Al González

El lenguaje C tiene algunas cosas muy buenas, Román.

Eso lo sé, pero pensé que tú no

Pero ya en serio, me causa curiosidad el uso que deseas, quizá por no tener contexto. En lo particular, esa característica (que la asignación sea un operador) casi sólo la uso para ciclos en los que obtengo y uso un dato:

/*
  DameRegistro devuelve el siguiente registro o FALSE si no hay más registros
*/
WHILE registro = DameOtro() DO
BEGIN
  MuestraRegistro(registro)
END

En otros casos, puede devenir en una lectura confusa.

LineComment Saludos

[[Al González]]

Empezado por roman

En lo particular, esa característica (que la asignación sea un operador) casi sólo la uso para ciclos en los que obtengo y uso un dato:

/*
  DameRegistro devuelve el siguiente registro o FALSE si no hay más registros
*/
WHILE registro = DameOtro() DO
BEGIN
  MuestraRegistro(registro)
END

Buen uso.

Hoy estuve trabajando con cierto método que quizá sirva de ejemplo:

Código Delphi [-]
  Function TuaByNodeIdDic <T>.TryGetValue (Const AKey :TuaDNodeId;
    Out AValue :T) :Boolean;
  Var
    LTried :Boolean;
  Begin
    LTried := System.False;
    Result := System.False;

    If AKey.IndexableByID Then
    Begin
      Result := TryGetValue (AKey.BinEncodedID, AValue);  // Sobrecarga (no recursivo)
      LTried := System.True;
    End;

    //...
  End;

Con "asignaciones expresivas" (por llamarles de algún modo) esa primera parte se reduciría un poco:

Código Delphi [-]
  Function TuaByNodeIdDic <T>.TryGetValue (Const AKey :TuaDNodeId;
    Out AValue :T) :Boolean;
  Var
    LTried :Boolean;
  Begin
    If Result := LTried := AKey.IndexableByID Then
      Result := TryGetValue (AKey.BinEncodedID, AValue);  // Sobrecarga (no recursivo)

    //...
  End;

Saludos.