Foros Club Delphi - Descomponer un numero con 7 digitos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Descomponer un numero con 7 digitos (https://www.clubdelphi.com/foros/showthread.php?t=49990)

Descomponer un numero con 7 digitos

Hola Amigos:

Rato sin pedir ayuda pero nuevamente la necesito.

Sucede que tengo en una tabla "Vehiculos" un campos llamado "Placa" cada registro de placa corresponde a una cdena asi: "GGK-420", o "MMB-125"; en general es asi. Necesito descomponer este numero de forma tal que el ultimo digito de la placa me quede en un campo aparte o en un edit aparte; por favor si alguien sabe como hacerlo le ruego me lo indique en el "onclick" de un Button.

Trabajo con delphi 7 y paradox.

Muchas Muchas Gracias.

¿Delphi 7 tendrá una función llamada "RigthStr"?

Gracias ContraVenenno; si esta pero que pena con la sociedad no se como usarla.

Gracias.

pues nada más fácil que presionar F1 y ver el ejemplo que te muestra la ayuda de delphi...

Cita:

Empezado por F1_Delphi

RightStr Routine Returns the substring of a specified length that appears at the end of a string.
Unit StrUtils

Syntax
function RightStr(const AText: string; const ACount: Integer): string; overload;

function RightStr(const AText: WideString; const ACount: Integer): WideString; overload;

Description RightStr returns the trailing characters of AText up to a length of ACount characters. Thus, for example, if AText is the string "Programmer" and ACount is 7, RightStr returns the string "grammer".

o sea que, le pasas dos parámetros, la cadena y cuantos caracteres quieres... como en tu caso solamente requieres el último, podrías hacer:

Código Delphi [-]RigthStr(TuCadena, 1);

//O para ser más exactos:
RigthStr(Trim(TuCadena), 1);

¿que para que sirve la función "Trim"? Presionando F1 en Delphi, podrás ver la definición y uno que otro ejemplo.

Saludos :cool: