Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Extraer el primer caracter de un string (https://www.clubdelphi.com/foros/showthread.php?t=9585)

delphi.com.ar 28-04-2004 18:59:40

Cita:

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

Efectivamente yo prefiero prevenirlas
Cita:

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? :D

kinobi 28-04-2004 19:07:13

Cita:

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

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 28-04-2004 19:07:46

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);

:D

// Saludos

jachguate 28-04-2004 19:11:14

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

jachguate 28-04-2004 19:13:20

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... :D :D

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

:eek: :eek:

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

Hasta luego.

;)

roman 28-04-2004 19:16:41

Cita:

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?

:D

// Saludos

kinobi 28-04-2004 19:19:12

Hola,

Cita:

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 28-04-2004 19:22:00

Cita:

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?

:p

// Saludos

kinobi 28-04-2004 19:34:48

Cita:

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. :D

Saludos.

roman 28-04-2004 20:04:30

Cita:

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? :D

En fin, que esto empezó en el sexto mensaje :p

// Saludos

jachguate 28-04-2004 20:20:45

Cita:

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! :mad:

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

hasta luego.

;)

roman 28-04-2004 20:24:30

Cita:

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 :(

:D

// Saludos

jachguate 28-04-2004 20:54:40

Cita:

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... :D :D

Al González 29-04-2004 23:38:18

¡Hola a todos!

Cita:

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 29-04-2004 23:56:57

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


La franja horaria es GMT +2. Ahora son las 22:45:03.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi