Discussion :

[alanglet]

Bonjour,

Simple procédure déclenchée par un bouton pour lire un simple fichier de quelques lignes "lisezmoi.txt" situé dans le répertoire de l'exécutable:

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TMaForm.btnClick(Sender:TObject);
var
  s:String;
begin
  s:=ReadFileToString('lisezmoi.txt');//'lisezmoi.txt' pas trouvé si exécution sous Lazarus
//  s:=ReadFileToString(ExtractFilePath(ParamStr(0))+'lisezmoi.txt');// marche toujours
  if s='' then
    s:='Fichier lisezmoi.txt absent.';
  ShowMessage(s);
end;

Lors de l'exécution depuis l'IDE, même sans débogage, le fichier lisezmoi.txt ne semble pas trouvé s'il n'est pas identifié par son adresse complète.
Aucun problème par contre en exécution directe.
Même problème en remplaçant ReadFileToString par l'utilisation d'un TStringList.LoadFromFile('lisezmoi.txt').
Je n'avais pas vu ce problème avant le passage en version 3.0 sous FPC 3.2.2.

Une explication?

André

[acaumes]

Bonjour,

Une explication?
André

Je crois que j'ai vu quelque chose dans le forum anglais...https://forum.lazarus.freepascal.org...html#msg501116
Tu ne génères pas l’exécutable dans le même répertoire que celui où est situé ton programme...

De toutes façons je crois que

Code :

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

ExtractFilePath

devrait être privilégié

Cordialement

[alanglet]

Je crois que j'ai vu quelque chose dans le forum anglais...

Bien vu.
En français (j'ai eu du mal à trouver la bonne fiche), il faut mettre $Path($(OutputFile)) dans Exécuter/Paramètres d'exécution/Répertoire de travail.

Seul ennui: il faut le faire pour chaque application où c'est absolument nécessaire alors que c'est une règle quasi générale.

André