Buscas semejanza

[mefixxto]

Quisiera que cuando inserte un texto en un textbox examite que el texto termine con "." (con un punto)

Como hago???

[ContraVeneno]

Código Delphi [-]
If RigthStr(UnTexto.Text, 1) = '.' then 'Sí termina' else 'No Termina';

[mefixxto]

Empezado por ContraVeneno

Código Delphi [-]If RigthStr(UnTexto.Text, 1) = '.' then 'Sí termina' else 'No Termina';

Me sale que no existe el identificador RigthStr....
Hay que aumentar algo en uses???

[[Luis M.]]

Hola.

Es RightStr.
En el uses la unidad StrUtils.

Un saludo.

[mefixxto]

Muchas gracias ya funco...