Changeset 102

Timestamp:

Feb 8, 2022, 7:02:54 PM (2 years ago)

Author:

chronos

Message:

• Fixed: Build under older Lazarus version.

Location:

trunk/Forms

Files:

• UFormContact.lfm (modified) (1 diff)
• UFormContact.pas (modified) (1 diff)

trunk/Forms/UFormContact.lfm

@@ -456 +456 @@
         Anchors = [akTop, akLeft, akRight]
         Caption = 'Address'
-        ClientHeight = 259
+        ClientHeight = 285
         ClientWidth = 895
         TabOrder = 6

trunk/Forms/UFormContact.pas

@@ -273 +273 @@
 end;
 
+{$IF FPC_FULLVERSION<30200}
+function TryISOStrToDate(const aString: string; out outDate: TDateTime): Boolean;
+var
+  xYear, xMonth, xDay: LongInt;
+begin
+  case Length(aString) of
+    8: Result :=
+          TryStrToInt(Copy(aString, 1, 4), xYear) and
+          TryStrToInt(Copy(aString, 5, 2), xMonth) and
+          TryStrToInt(Copy(aString, 7, 2), xDay) and
+          TryEncodeDate(xYear, xMonth, xDay, outDate);
+    10: Result :=
+          TryStrToInt(Copy(aString, 1, 4), xYear) and
+          TryStrToInt(Copy(aString, 6, 2), xMonth) and
+          TryStrToInt(Copy(aString, 9, 2), xDay) and
+          TryEncodeDate(xYear, xMonth, xDay, outDate);
+  else
+    Result := False;
+  end;
+  if not Result then
+    outDate := 0;
+end;
+{$ENDIF}
+
 { TFormContact }