Array numa Procedure

Delphi

11/02/2004

olá Pessoal
o caso é o seguinte...

tenho a seguinte procedure:

Procedure CalculaTempo(Codigo:Integer;[color=green:789e2a2e72]Data1,Data2,Data3:TDate;Hora1,Hora2,Hora3:TTime[/color:789e2a2e72]);
begin
...
end;

no parâmetros Data1,2,3 - Hora1,2,3, informo as datas/horas selecionados em um Grid com MultiSelect. ... só que eu posso ter ´n´ datas/horas selecionadas .. então na procedure acredito que eu tenha que ter um Array para que eu possa informar qtos forem selecionados pelo usuário.
Como fazer ?

abraço

Diogo


Diogoalles

Diogoalles

Curtidas 0

Respostas

Adilsond

Adilsond

11/02/2004

  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;



GOSTEI 0
Maxwell_monteiro

Maxwell_monteiro

11/02/2004

Porque vc nao coloca sua funcao em uma laco de repeticao e chama ela para cada linha que foi selecionada e vai somando os resultados?


GOSTEI 0
POSTAR