Ayuda con un memo

[__cadetill]

Posteado originalmente por roman
Aquí son las 5:00 am. Por razones que omito tengo insomnio y entre las muchas cosas absurdas que uno piensa cuando tiene insomnio, pensaba en que podía usarse ExtractFileExt. Harto de dar vueltas en la cama vengo y me encuentro con que me has ganado la idea.

Pues la verdad es que a las 5 d la mañana ponerse delante del ordenador tiene delito

Posteado originalmente por roman
De cualquier forma y para no quedarme con las ganas de aportar he de indicar que es innecesario añadir el '.' a Ext ya que ExtractFileExt lo incluye.

En esto no habia caido Gracias por remarcarlo

Pues nada, otro día será

PD: La solucion con ReverseString es muy ingeniosa, pero sigue teniendo un problema. Qué pasaría si el archivo se llamara "Mi.Archivo"? es decir, sin extensión pero con un '.' por el medio del nombre