Delphi - MOSTRAR COMO RESULTADO LA ULTIMA PALABRA DE UNA CADENA

 
Vista:

MOSTRAR COMO RESULTADO LA ULTIMA PALABRA DE UNA CADENA

Publicado por ROGER ZAMBRANA (1 intervención) el 24/05/2020 22:04:01
Consulta.
soy nuevo en esto,, que comandos necesitaria para mostrar la ultima palabra de un cadena
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JAVIER HUMBERTO
Val: 4
Ha aumentado 1 puesto en Delphi (en relación al último mes)
Gráfica de Delphi

MOSTRAR COMO RESULTADO LA ULTIMA PALABRA DE UNA CADENA

Publicado por JAVIER HUMBERTO (1 intervención) el 03/06/2020 19:37:01
Hola Roger, el codigo que necesitas es algo como este:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TFRM_ULTIMA_PALABRA.Button1Click(Sender: TObject);
VAR
FRASE:STRING;
I:INTEGER;
LETRA:STRING;
PALABRA:STRING;
begin
 
   PALABRA:=EMPTYSTR;//INICILIZAMOS VACIA LA VARIABLE PALABRA;
   FRASE:=TRIM(Edit1.TEXT); //ASIGNA A LA VARIABLE FRASE DE TIPO CADENA, EL VALOR DE LA CAJA DE TEXTO Y LE QUITA POSIBLES ESPACIOS AL INICIO AL FINAL
 
   //////////// RECORREMOS LA FRASE PARA PARTICIONAR LAS PALABRAS QUE LA COMPONEN
 
   for I := 1 to LENGTH(FRASE) do //DE LA POSICION 1 (PRIMERA LETRA) HASTA EL LARGO DE LA FRASE (ULTIMA LETRA)
    BEGIN
       LETRA:=FRASE[I];
            if LETRA<>' ' then //SI LA LETRA ACTUAL ES DIFERENTE DE ESPACIO EN BLANCO
               BEGIN
                 PALABRA:=PALABRA+LETRA; //VAMOS FORMANDO LA PALABRA
               END
            ELSE
               BEGIN
                 PALABRA:=EmptyStr;//SI HAY ESPACIO EN BLANCO REINICIAMOS A VACIA LA PALABRA
               END;
 
    END;
 
   Edit2.TEXT:=PALABRA; //AL FINAL DEL CICLO QUE RECORRE LA FRASE NOS QUEDA LA ULTIMA PALABRA
 
end;
ultima-palabra
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar