The ZeosLib is a set of database components for MySQL, PostgreSQL, Interbase, Firebird, MS SQL, Sybase, Oracle and SQLite for Delphi, FreePascal/Lazarus, Kylix and C++ Builder

$IFDEF

var 
True: boolean = not false;

type
  TAllYearTemps = array [1..24, 1..31, 1..12] of Integer;

var
  AllYear: TAllYearTemps;

var 
  di: array of Integer;
  i: Integer;

begin
  di := [1, 2, 3];       // initialization
  di := di + di;         // concatenation
  di := di + [4, 5];   // mixed concatenation

  for i in di do
  begin
     Show(i.ToString);
  end;

end.