Extraer el primer caracter de un string

[Isaac]

Yo siempre lo hago así.

[delphi.com.ar]

Empezado por Isaac

Yo siempre lo hago así.

Pues... me parece que te falto algo

[Isaac]

Ay, sí. Me refería a que para extraer los caracteres de una cadena de texto siempre lo trato como un array, que al fin al cabo, una cadena de texto es un array de caracteres

[[Al González]]

¡Hola a todos!

En algunos casos, cuando es seguro que la cadena tenga por lo menos un carácter, utilizo la expresión Cadena [1], pero si existe la posibilidad de que esté vacía, empleo la expresión CaracCade (Cadena), función de Interfaz GH que devuelve #0 en caso de que la cadena esté vacía.

Saludos.

Al González .

[roman]

Empezado por Al González

empleo la expresión CaracCade (Cadena), función de Interfaz GH que devuelve #0 en caso de que la cadena esté vacía.

Bueno, pero Copy ya viene incluida con Delphi y devolverá una cadena vacía que me parece más acorde con "no tiene caracteres" que #0 que, si bien nulo, es un caracter.

// Saludos

[jachguate]

Creo que todos aqui han olvidado la posibilidad de manejar lenguajes con caracteres multibyte...

Lo mas probable es que no haga falta, ya que hay una alta probabilidad que se trate de un programa en español...... pero abarcando todas las posibilidades, yo creo que la mejor opción es Copy...

Hasta luego.

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