nom de fichier sans extension

SVp comment extraire le nom d'un fichier sans son extension??
c urgent et merci de me répondre

Bonjour
une petite proposition, je pense qu'elle vous sera utile;

var FN:String;
     NF:string;
begin
FN:=ExtractFileName(Application.ExeName);
NF:=Copy(FN,0,Length(FN)-4);
ShowMessage(NF);

FN=FileName avec extention;
NF=Nom du fichier;

Bonne chance et plein de succès.

merci bcp cirec ça marche! merci à toi aussi Fouad pour essayé de m'aider :-)!
j'ai encore une petite question et dsl je ne veux pas abuser...
quelle est la syntaxe pour insérer des données ds une baase de données?
voici ma ligne de code:
sql:= 'insert into tableMetier Values ('+tableSelectionneSansExt +',' +metierSelectionne+')';
avec les 2parametres :tableSelectionneSansExt et metierSelectionne des chaines.
mais il m'affiche une erreur en me disant champs incorrect:-(!
merci encore une fois!

Bonjour,
si ta table ne comporte que ces deux champs , l'erreur doit provenir du fait qu'il faut entourer tes valeurs string de quote dans ta requête:
sql:= 'insert into tableMetier Values ('+quotedstr(tableSelectionneSansExt) +',' +quotedstr(metierSelectionne)+')';


Dom