🚀 go-pugleaf

Przygotowałem bibliotekę typów zastępujących standardowe typy proste w Delphi.
Jest dostępna pod adresem 

https://bitbucket.org/mihoor/oltypes/wiki/Home

Oprócz możliwości przypisywania Null-a, zmienne tych typów mają dodane zestawy metod, które uznałem za najczęściej wykorzystywane.

Przykład:

procedure OLDateTest();
var
  d: TDate;
  i: integer;
  b: Boolean;
  SuperD: OLDate;
begin
  d := Date();

  if SuperD.IsNull() then             // Default value is Null
    SuperD := d;                      // Assign regular TDate value
  SuperD.Year := 2018;                // Change the year
  SuperD := SuperD.IncMonth(5);       // Add 5 months
  SuperD := '2017-05-12';             // You can use current format or ISO 8601;

  b := SuperD.InRange('2018-01-01', '2019-01-01');
  i := SuperD.EndOfAMonth(2018, 2).DaysInMonth();

  SuperD := 'epm';                    // The 'epm' is a SmartString interpreted as end of the prior month
  ShowMessage(SuperD.ToString());     // like DateToStr

  SuperD := Now();                    // assigning TDateTime will cut off the time part UNLIKE in TDate
  b := (SuperD = Date());             // so b is true

  d := SuperD;                        // Assign OLDate to regular TDate variable
end;

Wiki zawiera kolejne przykłady. W repozytorium jest też projekt testowy, który jest świetnym źródłem wiedzy, jak używać biblioteki.