add Delphi FMX project TDirectory_CreateDirectory_Check

DeveloppeurPascal · Oct 3, 2022 · 6d752fa · 6d752fa
1 parent 69075b3
commit 6d752fa
Show file tree

Hide file tree

Showing 6 changed files with 1,850 additions and 0 deletions.
diff --git a/README.md b/README.md
@@ -34,6 +34,10 @@ Give users names on first memo field, click the button and copy/paste the users/
 
 Of course change the domaine name "mesimf371818.ovh" hard coded in the source before doing anything with this program.
 
+## TDirectory_CreateDirectory_Check
+
+Test methods TDirectory.CreateDirectory(), TDirectory.Delete() and the TPath.GetXXXPath() for Delphi programs on all available platforms.
+
 ## tirages_au_sort
 
 To attribute gains in a lotery depending on the number of participants and gifts.

diff --git a/TDirectory_CreateDirectory_Check/README.md b/TDirectory_CreateDirectory_Check/README.md
@@ -0,0 +1,3 @@
+# TDirectory_CreateDirectory_Check
+
+Test methods TDirectory.CreateDirectory(), TDirectory.Delete() and the TPath.GetXXXPath() for Delphi programs on all available platforms.
diff --git a/TDirectory_CreateDirectory_Check/src/Project1.dpr b/TDirectory_CreateDirectory_Check/src/Project1.dpr
@@ -0,0 +1,14 @@
+program Project1;
+
+uses
+  System.StartUpCopy,
+  FMX.Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.