Extraer el primer caracter de un string

[delphi.com.ar]

Empezado por roman

En efecto es un EAccessViolation. No sé por qué, pero capturar estas excepciones siempre me pone nervioso

Efectivamente yo prefiero prevenirlas

Empezado por Delphi.com.ar

{Por Caracter (Habría que evaluar que la cadena no este vacía)}

PD: ¿Se dieron cuenta las vueltas que estamos dando para algo tan simple?

[kinobi]

Empezado por roman

En efecto es un EAccessViolation. No sé por qué, pero capturar estas excepciones siempre me pone nervioso

imagino que será por la asociación que hacemos "excepción = error", no siendo realmente así, ya que una excepción es una situación anormal (o "excepcional") que requiere, si es preciso, un tratamiento especial, como es el caso que se discute en este hilo.

Saludos.

[roman]

También podríamos crear una función de carcater general:

Código Delphi [-]
function CasoCaracDe(S: String; Caracs: array of Char; Resuls: array of Integer; Defe: Integer): Integer;
var
  I: Integer;

begin
  Result := Defe;

  for I := Low(Caracs) to High(Caracs) do
    if CaracCade(S) = Caracs[i] then
    begin
      Result := Resul[i];
      break;
    end;
end;

con lo que el código se reduciría a una sóla línea:

Código Delphi [-]
Resultado := CasoCaracDe(S, ['A', 'B', 'C'], [10, 9, 8], 0);

// Saludos

[jachguate]

Parece que hay una nueva función para agregar a alguna biblioteca...

[jachguate]

Por cierto... los que han trabajado con Oracle han de conocer la excepcional funcion decode...

A mi me ha gustado tanto, que no he podido resistirme a la tentación, y tengo mi propio Decode en delphi...

Al final de cuentas, es mas o menos lo que hizo román... pero de caracter mas general.



Por supuesto, pertenece a la unidad jachUtils de la biblioteca jach...

Hasta luego.

[roman]

Empezado por jachguate

pertenece a la unidad jachUtils de la biblioteca jach

No conozco Oracle, ¿podrías platicarnos en qué consiste y si no tienes problema añadirla a romStrUtils?



// Saludos

[kinobi]

Hola,

Empezado por roman

También podríamos crear una función de carcater general:

cierto, pero (y lo hago en defensa de la propuesta que utiliza la gestión de excepciones) el tener la precaución de atrapar la posible excepción es también un método genérico, con la ventaja de que viene implantado en el propio lenguaje sin necesidad de arrastrar funciones externas.

No estoy diciendo que el utilizar funciones externas, como la que has puesto, o a la que se refiere Al, sean una solución peor, sino que, para estos casos, el mecanismo de gestión de excepciones (para Delphi y otros lenguajes que lo implantan) ha demostrado su validez, sencillez y eficacia frente a métodos "tradicionalmente" defensivos (verificar antes que no se dan determinadas circunstancias).

Saludos.

[roman]

Empezado por kinobi

con la ventaja de que viene implantado en el propio lenguaje sin necesidad de arrastrar funciones externas.

¡Caramba kinobi! Pero es que..

... estoy completamente de acuerdo contigo. ¿No lo notas?



// Saludos

[kinobi]

Empezado por roman

... estoy completamente de acuerdo contigo. ¿No lo notas?

Chico, entre tanto CaracCade, tanto CasoCaracDe, tanto Case, tanto If, tanto ... ya no sé siquiera si estoy de acuerdo conmigo mismo.

Saludos.

[roman]

Empezado por kinobi

Chico, entre tanto CaracCade, tanto CasoCaracDe, tanto Case, tanto If, tanto ... ya no sé siquiera si estoy de acuerdo conmigo mismo.

¿Se confunde uno verdad?

En fin, que esto empezó en el sexto mensaje

// Saludos

[jachguate]

Empezado por kinobi

el mecanismo de gestión de excepciones ... ha demostrado su validez, sencillez y eficacia frente a métodos "tradicionalmente" defensivos

Estamos totalmente de acuerdo. Yo no le temo a las excepciones!

bueno... las EAccessViolation me ponen algo nervioso... pero es que también soy humano..

hasta luego.

[roman]

Empezado por jachguate

las EAccessViolation me ponen algo nervioso...

Yo siempre me quedo con la sensación de que voy a tener que comprar memoria nueva



// Saludos

[jachguate]

Empezado por roman

Yo siempre me quedo con la sensación de que voy a tener que comprar memoria nueva

Bueno... debe haber algo equivalente a la cirugia reconstructiva, aunque si es un pretexto para tener una (memoria) realmente nueva, adelante...

[[Al González]]

¡Hola a todos!

Empezado por roman

Lo mismo que cuando recuerdo las tablas de multiplicar y no por ello uso una función ProduNume(A, B: Integer)

El ejemplo no es comparable con lo planteado anteriormente, por dos razones:

La primera, no se simplificaría nada ya que la expresión A * B es más corta, sencilla, legible y fácil de analizar que la expresión ProduName (A, B).

La segunda es que lo recordado no es cómo se hace una operación, sino qué hace una expresión o grupo de expresiones, por lo que la preguna no es ¿cómo se múltiplican dos números?, sino ¿qué hace la expresión ProduNume (A, B)?. Es más fácil respondernos qué hace la expresión A * B o qué hace la expresión Case CaracCade (S) Of, que las alternativas mencionadas. Cabe señalar, que no me refiero al qué hace internamente, sino qué significado operativo tiene en el contexto de código actual.

Como habrás notado, CaracCade encapsula la validación If y la referencia al primer carácter de la cadena en una sóla expresión, y ese es el quid de este caso: utilizar una simple y única expresión en lugar de dos o más.

Un abrazo.

Al González .

[roman]

Mencioné lo de las tablas de multiplicar porque son cosas que aunque en su momento nos hayan costado mucho trabajo, ahora son totalmente naturales y no nos detenemos a pensar gran cosa en ellas, simplemente efectuamos mentalmente la operación de forma automática. Así mismo sucede aquí, como en muchas (si no es que todas) áreas de la actividad humana. Hay cosas que pasan a ser tan naturales que difícilmente tenemos que detenernos a pensar en ellas, y una de éstas es saber que no se puede acceder a un elemento inexistente de un arreglo. Entiendo que para alguien que recién se esté iniciando en el mundo de la programación, puntos como éste no sean triviales, pero llega un momento en que así son, tan naturales como las tablas de multiplicar y requiere más esfuerzo mental extraer de la memoria el objetivo y uso de una función de entre los cientos de funciones que hemos usado aquí o allá en ocasiones anteriores. En el caso que planteas, además de tener que recordar el objetivo de una función, debe uno recordar el uso de sus parámetros. Insisto, un nombre como CaracCade no evoca la extracción del primer caracter de una cadena por lo que debe uno recordar que tiene un parámetro por defecto y que éste se refiere al primer caracater y no, por ejemplo, al último. Cierto, al igual que con muchas funciones incluidas con Delphi, podemos oprimir F1 o consultar la documentación para recordar el funcionamiento exacto, pero, vuelvo al punto inicial, todo esto fue ya más complicado que simplemente leer el código, no encapsulado en una función, que inmediatamente comprenderemos sin necesidad de preguntarnos nada.

No dudo que en tu biblioteca haya muchísimas funciones muy útiles, pero creo que es un exceso querer reusar absolutamente todo el código posible, incluido el más elemental.

// Saludos