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.