Extraer el primer caracter de un string

[willy]

Hola a todos
Estoy desarrollando una aplicación en Delphi 7 y me gustaria que alguien me dijese que comandos puedo utilizar para extraer únicamente la primera letra de un string cualquiera. Por ejemplo, si en el string esta almacenada la palabra "hola" me gustaría poder extraer solamente la letra "h" para compararla posteriormente con otra variable.
Si alguien me puede mandar algún ejemplo le estaría muy agradecido.

[delphi.com.ar]

Hay varias formas de hacerlo:

var
  Text: string;
begin
  Text := 'Hola';
  {Por Caracter (Habría que evaluar que la cadena no este vacía)}
  Result := Text[1];
  {Con Copy}
  Result := Copy(Text, 1, 1);
  {Con LeftStr - Sólo válido de Delphi 6 en adelante}
  Result := LeftStr(Text, 1)
  ...

Saludos!

[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

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

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 .

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

[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

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

[roman]

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

// Saludos