Enhance date input and validation

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1950 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jujiboutils/examples/testmemdataset/jcontrolutils.pas

@@ -10,8 +10,10 @@ uses
 function ReplaceChar(const s: string; ch1: char; ch2: char): string;
 function CountChar(const s: string; ch: char): integer;
 procedure Split(const Delimiter: char; Input: string; Strings: TStrings);
-function NormalizeDate(const Value: string; theValue: TDateTime): string;
+function NormalizeDate(const Value: string; theValue: TDateTime;
+  const theFormat: string = ''): string;
 function NormalizeDateSeparator(const s: string): string;
+function IsValidDateString(const Value: string): boolean;
 
 implementation
 
@@ -43,29 +45,47 @@ begin
   Strings.DelimitedText := Input;
 end;
 
-function NormalizeDate(const Value: string; theValue: TDateTime): string;
+function NormalizeDate(const Value: string; theValue: TDateTime;
+  const theFormat: string): string;
 var
   texto: string;
   i: integer;
   d, m, y: word;
+  ds, ms, ys: string;
+  aDate: TDateTime;
+  tokens: TStringList;
 begin
   if theValue = 0 then
     DecodeDate(Now, y, m, d)
   else
     decodedate(theValue, y, m, d);
-  // normalize date
+  ds := IntToStr(d);
+  ms := IntToStr(m);
+  ys := IntToStr(y);
   texto := Value;
-  texto:= NormalizeDateSeparator(texto);
+  texto := NormalizeDateSeparator(texto);
-  //texto := replacechar(texto, '.', DateSeparator);
+  Result := texto;   // default value
-  //texto := replacechar(texto, '-', DateSeparator);
-  //texto := replacechar(texto, '/', DateSeparator);
   i := countchar(texto, DateSeparator);
-
+  tokens := TStringList.Create;
-  case i of
+  Split(DateSeparator, texto, tokens);
-    1: texto := texto + DateSeparator + IntToStr(y);
+  if tokens.Count > 0 then
-    0: texto := texto + DateSeparator + IntToStr(m) + DateSeparator + IntToStr(y);
+  begin
+    // for now only working date forma d/m/y
+    // TODO add logic to make it working with m/d/y and ISO format
+    // update jdbgridutils to work with this code
+    if tokens[0] <> '' then
+      ds := tokens[0];
+    if (tokens.Count > 1) and (tokens[1] <> '') then
+      ms := tokens[1];
+    if (tokens.Count > 2) and (tokens[2] <> '') then
+      ys := tokens[2];
+    texto := ds + DateSeparator + ms + DateSeparator + ys;
+    if IsValidDateString(texto) then
+    begin
+      Result:= texto;
+    end;
   end;
-  Result := texto;
+  tokens.Free;
 end;
 
 function NormalizeDateSeparator(const s: string): string;
@@ -78,5 +98,13 @@ begin
       Result[i] := DateSeparator;
 end;
 
+function IsValidDateString(const Value: string): boolean;
+begin
+  if StrToDateDef(Value, MaxDateTime) = MaxDateTime then
+    Result := False
+  else
+    Result := True;
+end;
+
 end.
 

components/jujiboutils/examples/testmemdataset/jdbutils.pas

@@ -69,7 +69,6 @@ type
     procedure formatInput;
     procedure setFormat(const AValue: string);
     procedure OnKeyPress(Sender: TObject; var key: char);
-    function IsValidDate(const Value: string): boolean;
   public
     function isNull: boolean;
     property format: string read getFormat write setFormat;
@@ -235,7 +234,7 @@ begin
   if Length(myEdit.Caption) = 0 then
     theValue := 0
   else
-  if IsValidDate(bufCaption) then
+  if IsValidDateString(bufCaption) then
   begin
     theValue := StrToDate(bufCaption);
     myEdit.Caption := bufCaption;
@@ -267,15 +266,6 @@ begin
     Key := #0;
 end;
 
-function TJDBDateCtrl.IsValidDate(const Value: string): boolean;
-begin
-  // comprobar que la fecha es valida
-  if StrToDateDef(Value, MaxDateTime) = MaxDateTime then
-    Result := False
-  else
-    Result := True;
-end;
-
 function TJDBDateCtrl.isNull: boolean;
 begin
   Result := theValue = 0;