eliminar extencion de un archivo...

[Greco]

Hola, me gustaría saber como puedo eliminar la extencion de un archivo que visualizo en un edit.

tengo un edit en donde me muestra el nombre de un archivo con su path completo y extencion (ej: C:\Archivos\archivo.ext)

Necesito mostrar solo el nombre del archivo, sin su extencion y su path, para mostrarlo sin el path lo estoy haciendo con la funcion ExtractFileName con lo cual ahora se visualiza 'archivo.ext', pero aun me falta por eliminar la extencion, como se hace eso??

Sañudos

[[seoane]]

Así de memoria, puede que me equivoque ...

Código Delphi [-]
Edit1.Text:= ChangeFileExt(ExtractFileName(Archivo),EmptyStr);

[Greco]

Empezado por seoane

Así de memoria, puede que me equivoque ...

Código Delphi [-]Edit1.Text:= ChangeFileExt(ExtractFileName(Archivo),EmptyStr);

Funcionó a la perfección.

Muchas gracias.