Date locale conversion issue in configuration sample #113

viniciussanchez · Nov 3, 2021 · 16531f8 · 16531f8
1 parent b254e62
commit 16531f8
Showing 1 changed file with 14 additions and 4 deletions.
diff --git a/samples/delphi/configuration/src/DataSet.Serialize.Samples.Configuration.pas b/samples/delphi/configuration/src/DataSet.Serialize.Samples.Configuration.pas
@@ -179,10 +179,20 @@ procedure TFrmSamples.LoadUsers;
   if not mtLog.Active then
     mtLog.Open;
 
-  mtUsers.AppendRecord([1, 'Mateus Vicente', '13/04/1998', 14999.99]);
-  mtUsers.AppendRecord([2, 'Vinicius Sanchez', '03/08/1995', Null]);
-  mtUsers.AppendRecord([3, 'Julio Senha', '04/06/1985', 27000.00]);
-  mtUsers.AppendRecord([4, 'Fagner Granela', Null, 105000.00]);
+  if FormatSettings.DateSeparator = '.' then
+  begin
+    mtUsers.AppendRecord([1, 'Mateus Vicente', '13.04.1998', 14999.99]);
+    mtUsers.AppendRecord([2, 'Vinicius Sanchez', '03.08.1995', Null]);
+    mtUsers.AppendRecord([3, 'Julio Senha', '04.06.1985', 27000.00]);
+    mtUsers.AppendRecord([4, 'Fagner Granela', Null, 105000.00]);
+  end
+  else
+  begin
+    mtUsers.AppendRecord([1, 'Mateus Vicente', '13/04/1998', 14999.99]);
+    mtUsers.AppendRecord([2, 'Vinicius Sanchez', '03/08/1995', Null]);
+    mtUsers.AppendRecord([3, 'Julio Senha', '04/06/1985', 27000.00]);
+    mtUsers.AppendRecord([4, 'Fagner Granela', Null, 105000.00]);
+  end;
 
   mtLog.AppendRecord([1, 1, 'Login']);
   mtLog.AppendRecord([2, 1, 'Logout']);