Fórum Array numa Procedure #213230

  private
    { Private declarations }
    procedure CalculaTempo(Codigo: Integer; Data: array of TDate;
      Hora: array of TTime);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CalculaTempo(Codigo: Integer; Data: array of TDate;
  Hora: array of TTime);
var
  I: Word;
begin
  for I := Low(Data) to High(Data) do
    ShowMessage(DateToStr(Data[I]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CalculaTempo(1,
    [StrToDate(´01/01/2004´), StrToDate(´02/01/2004´), StrToDate(´03/01/2004´),
     StrToDate(´04/01/2004´), StrToDate(´05/01/2004´), StrToDate(´06/01/2004´)],
    [StrToTime(´01:00:00´)  , StrToTime(´01:01:00´)  , StrToTime(´01:02:00´),
     StrToTime(´01:03:00´),   StrToTime(´01:04:00´),   StrToTime(´01:05:00´)]);
end;