nom de fichier sans extensionRésolu

Question

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

Cirec · Accepted Answer

@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="" />

HAFTARIFOUAD · Answer

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.

hajerhajer · Answer

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!

dominique.stock · Answer

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

Nom de fichier sans extension

4 réponses

Votre réponse

Discussions similaires