Nom de fichier sans extension [Résolu]

Signaler
Messages postés
17
Date d'inscription
vendredi 11 juillet 2008
Statut
Membre
Dernière intervention
30 juillet 2008
-
Messages postés
436
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
8 octobre 2008
-
SVp comment extraire le nom d'un fichier sans son extension??
c urgent et merci de me répondre

4 réponses

Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
44
@Fouad:
c'est pas la bonne solution
et si l'extension fait plus ou moins de 3 caractères

var FN:String;
    NF:string;
begin
  FN:=ExtractFileName(Application.ExeName);
  NF:=ChangeFileExt(FN, '');
  ShowMessage(NF);
end;

 
@+
Cirec

<hr siz="" />
Messages postés
256
Date d'inscription
mercredi 5 septembre 2007
Statut
Membre
Dernière intervention
6 janvier 2011

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.
Messages postés
17
Date d'inscription
vendredi 11 juillet 2008
Statut
Membre
Dernière intervention
30 juillet 2008

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!
Messages postés
436
Date d'inscription
vendredi 7 novembre 2003
Statut
Membre
Dernière intervention
8 octobre 2008
5
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