Extraer el primer caracter de un string

[[Al González]]

¡Hola a todos!

Empezado por roman

...Copy ya viene incluida con Delphi y devolverá una cadena vacía...

Tu lo has dicho: una cadena, por lo que su resultado no será directamente asignable a una variable Char, o evaluable en un estatuto Case, por ejemplo. Y como el tema es Extraer el primer caracter de un string.

Entiendo que la función Copy resuelve por si sóla muchas situaciones donde necesitamos una subcadena de uno o varios caracteres. La utilizo en muchos casos. Pero, por ejemplo, resulta más práctico:

Case CaracCade (Cadena) Of
  'A' : Result := 10;
  'B' : Result := 9;
  'C' : Result := 8;
  Else
    Result := 0;
End;

que

C := Copy (Cadena, 1, 1);
Result := 0;

If C <> '' Then
  Case C [1] Of
    'A' : Result := 10;
    'B' : Result := 9;
    'C' : Result := 8;
  End;

ó

Result := 0;

If Cadena <> '' Then
  Case Copy (Cadena, 1, 1) [1] Of
    'A' : Result := 10;
    'B' : Result := 9;
    'C' : Result := 8;
  End;

Es evidente la simplificación que se logra. Los invito a que se ahorren cientos de líneas y horas de programación utilizando estas funciones de su humilde servidor.

¡Un abrazo!

Al González .

[roman]

Disculpa Al, pero descontando el hecho de que tu segundo bloque de código no compilará, a mi me parece bastante claro este:

Código Delphi [-]
Result := 0;
if S <> '' then
  case S[1] of
    'A': Result := 10;
    'B': Result := 9;
    'C': Result := 8;
  end;

que ocupa el mismo número de líneas y no hace referencia a una función que se une a las decenas de funciones incluidas con Delphi que de por sí debe uno mas o menos tener presente. Esto es importante sobre todo cuando debemos leer el código meses después de haberlo escrito.

Entendámonos; yo concuerdo en el hecho de que resulta muy útil tener ciertas rutinas que nos eviten trabajar de más pero no llevándolo a sus últimas consecuencias en donde se requiere que el programador disponga de una memoria prodigiosa.

// Saludos

[[Al González]]

Sabía que lo notarías, jeje. Bueno, supongo que sabías que sabía que lo notarías .

Con respecto a recordar el código meses después, es más fácil hacerlo si éste se encuentra simplificado en programación atómica.

¡Saludos!

Al González .

[roman]

Empezado por Al González

es más fácil hacerlo si éste se encuentra simplificado en programación atómica.

Y la razón sería...¿?



// Saludos

pd: Estarás de acuerdo que en tu (ahora) tercer bloque el uso de Copy sale sobrando ¿no?

[[Al González]]

Empezado por roman

...Estarás de acuerdo que en tu (ahora) tercer bloque el uso de Copy sale sobrando ¿no?...

En eso si tienes toda la razón.

¡Hasta pronto!

Al González .

[[Al González]]

Para aclarar un poco más lo anterior, me será más fácil recordar qué significa este bloque de código:

Case CaracCade (S) Of
  'A' : Result := 10;
  'B' : Result := 9;
  'C' : Result := 8;
  Else
    Result := 0;
End;

qué este otro:

Result := 0;
if S <> '' then
  case S[1] of
    'A': Result := 10;
    'B': Result := 9;
    'C': Result := 8;
  end;

Superficialmente parece sólo una cuestión de enfoque. Pero con el primer bloque no tengo que hacerme la pregunta "Por qué se evalúa si S es diferente de cadena vacía", sólo veo que se toma el primer carácter de la cadena. Es decir, es una cuestión mucho más importante: simplicidad analítica.

Un abrazo.

Al González .

[roman]

Empezado por Al González

[...] me será más fácil recordar qué significa este bloque de código:

{ Bloque de Al }

qué este otro:

{ Bloque de roman }

Pero es que ¡en el segundo bloque no hay nada que recordar! Desde las primeras lecciones de pascal se aprende que las cadenas de caracteres pueden tratarse como arreglos y que no podemos referirnos a un índice inexistente de un arreglo.

Por otra parte una cadena de caracteres consta, en general, de varios caracteres de manera que CaracCade no da una referencia explícita a qué carcater se está extrayendo. En todo caso PrimerCaracter me parecería más adecuado.

// Saludos

[[Al González]]

¡Hola de nuevo!

Empezado por roman

..CaracCade no da una referencia explícita a qué carcater se está extrayendo. En todo caso PrimerCaracter me parecería más adecuado...

La razón de esto es que CaracCade sirve para obtener cualquier carácter de la cadena dada. Tiene un parámetro opcional llamado Indice, con un valor predeterminado de 1. Es decir, puede usarse como CaracCade (S) —equivalente a CaracCade (S, 1)—, CaracCade (S, 2), CaracCade (S, 10), etc. Antes de que Object Pascal tuviera la característica de parámetros opcionales, Interfaz GH contaba con la función CaracCade (Carácter de Cadena) y otra llamada PrimeCaraCade (Primer Carácter de Cadena). Gracias a esa característica del compilador se pudieron unir las dos funciones en una sola.

Empezado por roman

Pero es que ¡en el segundo bloque no hay nada que recordar! Desde las primeras lecciones de pascal se aprende que las cadenas de caracteres pueden tratarse como arreglos y que no podemos referirnos a un índice inexistente de un arreglo.

¿Ves cómo si hay algo que recordar? . Aunque sea fácil respondernos a nosotros mismos la pregunta "¿Por qué se evalúa si S es diferente de cadena vacía?" (e importante y básico conocer la razón), no dejamos de hacérnosla mentalmente al ver ese bloque If. En cuestión de análisis de código, es más fácil lidiar con un un sólo estatuto de control (Case) que con dos juntos (If + Case).

Seguimos en contacto.

Al González .

[roman]

Empezado por Al González

¿Ves cómo si hay algo que recordar?

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

// Saludos

[[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 .

[kinobi]

Hola,

Empezado por Al González

En cuestión de análisis de código, es más fácil lidiar con un un sólo estatuto de control (Case) que con dos juntos (If + Case).

Tal vez esté equivocado, y no puedo probarlo ahora, pero si intentas indizar una cadena vacía, se producirá una excepción que podrás capturar en un bloque try...except y actuar en consecuencia. Vamos, que podría quedar algo así:

Código Delphi [-]
  ... 
  try
    case S[1] of
      'A': Result := 10;
      'B': Result := 9;
      'C': Result := 8;
    end;
    on excepción_cadena_vacía do begin
      manejador_excepción_cadena_vacía
    end;
  end;
  ...

Saludos.

[jachguate]

Lo digo de memoria, pero la excepción que debiera producirse es un EAccesViolation, pues se trata de acceder a una posición de memoria inválida.

hasta luego.