Différences

Ci-dessous, les différences entre deux révisions de la page.

--- prog:lazarus:cas:files:filenames [03/06/2020 17:43]
thierry [Extension]
+++ prog:lazarus:cas:files:filenames [15/05/2021 15:52] (Version actuelle)
thierry [Exemple]
@@ Ligne 15: / Ligne 15: @@
 ===== Répértoire =====
 ExtractFileDir et ExtractFilePath
+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 =====
@@ Ligne 38: / Ligne 53: @@
 End.
 </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 =====
   * [[https://www.freepascal.org/docs-html/rtl/sysutils/extractfiledir.html]]