Différences
Ci-dessous, les différences entre deux révisions de la page.
| Les deux révisions précédentes Révision précédente Prochaine révision | Révision précédente | ||
|
prog:lazarus:cas:files:filenames [03/06/2020 17:44] thierry [Répértoire] |
prog:lazarus:cas:files:filenames [15/05/2021 15:52] (Version actuelle) thierry [Exemple] |
||
|---|---|---|---|
| Ligne 17: | Ligne 17: | ||
| ExtractFilePath contient le \ final, contrairement a ExtractFileDir. | ExtractFilePath contient le \ final, contrairement a ExtractFileDir. | ||
| + | |||
| + | <code delphi> | ||
| + | // le fichier MarkerList.json sera dans le méme repertoire que l'application | ||
| + | vFilename := ExtractFilePath(Application.ExeName) + 'MarkerList.json'; | ||
| + | vSL := TStringList.Create; | ||
| + | try | ||
| + | vSL.Text := GetAsJSON; | ||
| + | vSL.SaveToFile(vFilename); | ||
| + | finally | ||
| + | vSL.Free; | ||
| + | end; | ||
| + | |||
| + | </code> | ||
| ===== Exemple ===== | ===== Exemple ===== | ||
| Ligne 40: | Ligne 53: | ||
| End. | End. | ||
| </code> | </code> | ||
| + | ===== Chercher ===== | ||
| + | ==== Chercher un executable ==== | ||
| + | * Rechercher un executable dans une suite de dossiers :\\ [[https://www.freepascal.org/docs-html/rtl/sysutils/exesearch.html]] | ||
| + | |||
| + | |||
| ===== Sources et Ressources ===== | ===== Sources et Ressources ===== | ||
| * [[https://www.freepascal.org/docs-html/rtl/sysutils/extractfiledir.html]] | * [[https://www.freepascal.org/docs-html/rtl/sysutils/extractfiledir.html]] | ||