Discussion :

[fatimaroza77]

Bonjour;
je veux recuperer le chemin d'application +le contenu d'un fichier texte dans une variable voici le début du code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
Var S,fichier:String;
    T:TStrings;
begin
 
S:=ExtractfilePath(Application.ExeName);
memo1.lines.loadfromfile('test1.txt');// pour charger
 
end;

le problème est que dans la variable S je trouve seulement le chemin E:\ tandis que
Application.ExeName = E:\gestion.exe
1er pb : pourquoi et même en utilisant ExtractfilePath je ne récupère pas le chemin entier
puis comment mettre le contenu de test1.text qui est chargé dans une variable.

[anapurna]

Salut

Bonjour;
je veux recuperer le chemin d'application +le contenu d'un fichier texte dans une variable voici le debut du code :

procedure TForm1.Button1Click(Sender: TObject);
Var S,fichier:String;
T:TStrings;
begin

S:=ExtractfilePath(Application.ExeName);

ici tu recupere le chemin de ton applicatif et à priori ton executable se trouve a la racine

Application.ExeName =E:\gestion.exe

memo1.lines.loadfromfile('test1.txt');// pour charger

tu aurais du ecrire s+'test1.txt';

end;
le probléme est que dans la variable S je trouve seulement le chemin E:\ tandisque
Application.ExeName =E:\gestion.exe
1er pb: pourqoui et même en utilisant ExtractfilePath je ne recupére pas le chemin entier
puis comment mettre le contenu de test1.text qui est charger dans une variable.