mufasatypesutil.pas

{
  This file is part of the Mufasa Macro Library (MML)
  Copyright (c) 2009-2012 by Raymond van Venetië and Merlijn Wajer

    MML is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    MML is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with MML.  If not, see <http://www.gnu.org/licenses/>.

  See the file COPYING, included in this distribution,
  for details about the copyright.

    MufasaTypesUtil
}

unit mufasatypesutil;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,mufasatypes;

function ConvArr(Arr: array of TPoint): TPointArray; overload;
function ConvArr(Arr: array of TPointArray): T2DPointArray; overload;
function ConvArr(Arr: array of Integer): TIntegerArray; overload;
function ConvArr(Arr: array of String): TStringArray; overload;

function ConvTPAArr(Arr: array of TPoint): TPointArray; overload;


implementation

function ConvArr(Arr: array of TPoint): TPointArray; overload;
var
  Len : Integer;
begin;
  Len := Length(Arr);
  SetLength(Result, Len);
  Move(Arr[Low(Arr)], Result[0], Len*SizeOf(TPoint));
end;

function ConvTPAArr(Arr: array of TPoint): TPointArray; overload;
var
  Len : Integer;
begin;
  Len := Length(Arr);
  SetLength(Result, Len);
  Move(Arr[Low(Arr)], Result[0], Len*SizeOf(TPoint));
end;


function ConvArr(Arr: array of TPointArray): T2DPointArray; overload;
var
  Len,Len2 : Integer;
  i : integer;
begin;
  Len := Length(Arr);
  SetLength(Result, Len);
  for i := Len - 1 downto 0 do
  begin
    Len2 := Length(Arr[i]);
    SetLength(result[i],len2);
    Move(Arr[i][0],Result[i][0],Len2*SizeOf(TPoint));
  end;
end;

function ConvArr(Arr: array of Integer): TIntegerArray; overload;
var
  Len : Integer;
begin;
  Len := Length(Arr);
  SetLength(Result, Len);
  Move(Arr[Low(Arr)], Result[0], Len*SizeOf(Integer));
end;

function ConvArr(Arr: array of String): TStringArray; overload;
var
  Len : Integer;
  I : integer;
begin;
  Len := Length(Arr);
  SetLength(Result, Len);
  for i := 0 to Len - 1 do
    result[i] := arr[i];
end;

end.