array of array of TDateTime

[lespaul]

I am trying to declare a multidimensional dynamic array of TDateTimes and I'm getting an error:

Incompatible Types : 'TDateTime' and 'Dynamic array'

Can anyone tell me if there is a way to do this?

Thanks!
Leslie
landrews@metrocourt.state.nm.us

There are 10 types of people in the world -
those who understand binary
and
those who don't!

 

[Zathras]

Since TDateTime is really just a double, you could try creating an array of array of double

 

[lespaul]

But then could I store TDateTime values in it? Leslie
landrews@metrocourt.state.nm.us

There are 10 types of people in the world -
those who understand binary
and
those who don't!

 

[Zathras]

Like putting your foot into an old shoe. Just do it!

 

[lespaul]

Ok, I switched it to a double and I'm still getting the incompatible TDateTime and dynamic array error on the red line below:

procedure ProcessVouchers();
var
ProcessList : variant;
HoursWorked : array of array of Double;
excelapp, excelsht : Variant;
personcount, i, j, daysworked, tripsmade : integer;
begin
  Save_Cursor := Screen.Cursor;
  Screen.Cursor := crHourGlass;
  try
    If not JMSData.qryHoursCalc.IsEmpty then
    begin
      personcount := 0;
      While not JMSData.qryHoursCalc.EOF do
      begin
        inc(personcount);
        JMSdata.qryHoursCalc.Next;
      end;
      ProcessList := VarArrayCreate([0, (personcount - 1), 0, 7], varOleStr);
      JMSData.qryHoursCalc.First;
      For i := 0 to (personcount - 1) do
      begin
        JMSData.qryTemp.SQL.Clear;
        JMSData.qryTemp.SQL.Add('SELECT * FROM JMPHOURS WHERE JURNUM = ' + JMSData.qryHoursCalc.FieldByName('JURNUM').AsString);
        JMSData.qryTemp.Active := True;
        While not JMSData.qryTemp.EOF do
        begin
          inc(daysworked);
          JMSdata.qryTemp.Next;
        end;
        tripsmade := daysworked div 2;
        SetLength(HoursWorked, tripsmade, 3);
        JMSData.qryTemp.First;
        for j := 0 to (daysworked - 1) do
        begin
          if j mod 2 = 0 then
          begin

            Hoursworked(j, 0) := StrToDate(DateFormat(JMSData.qryTemp.FieldByName('SERVDATE').AsString));

            if RightStr(JMSData.qryTemp.FieldByName('TIMETYPE').AsString, 1) = 'I' then

            Hoursworked(j, 1) := IntToTime(JMSdata.qryTemp.FieldByName('TIMEIO').AsInteger)

            else if RightStr(JMSData.qryTemp.FieldByName('TIMETYPE').AsString, 1) = 'O' then

            Hoursworked(j, 2) := IntToTime(JMSdata.qryTemp.FieldByName('TIMEIO').AsInteger);

          end
          else
          begin
            if RightStr(JMSData.qryTemp.FieldByName('TIMETYPE').AsString, 1) = 'I' then

            Hoursworked(j - 1, 1) := IntToTime(JMSdata.qryTemp.FieldByName('TIMEIO').AsInteger)

            else if RightStr(JMSData.qryTemp.FieldByName('TIMETYPE').AsString, 1) = 'O' then

            Hoursworked(j - 1, 2) := IntToTime(JMSdata.qryTemp.FieldByName('TIMEIO').AsInteger);

          end;
        end;
        JMSData.qryHoursCalc.Next;
        daysworked := 0;
      end;
    end;
    ProcessList[i , 0] := JMSData.qryHoursCalc.FieldByName('FIRSTNAME').AsString +
     JMSData.qryHoursCalc.FieldByName('LASTNAME').AsString;
    ProcessList[i , 1] := ProperCase(JMSData.qryHoursCalc.FieldByName('FIRSTNAME').AsString
     + ' ' + JMSData.qryHoursCalc.FieldByName('LASTNAME').AsString);
    ProcessList[i , 2] := dateformat(JMSData.qryHoursCalc.FieldByName('SERVDAT').AsString);
    ProcessList[i , 3] := JMSData.qryHoursCalc.FieldByName('TIMETYPE').AsString;
    ProcessList[i , 4] := JMSData.qryHoursCalc.FieldByName('TIMEIO').AsString;
    ProcessList[i , 5] := JMSData.qryHoursCalc.FieldByName('RTM').AsString;
    excelapp:= CreateOleObject('Excel.Application');
    excelapp.Visible := True;
    excelapp.Workbooks.Open('O:\JMS\Vouchers.xls');
    excelsht :=  excelapp.WorkSheets.Item['Data'];
    excelsht.Activate;
    excelsht.Range[excelsht.Cells.Item[2, 1], excelsht.Cells.Item[(personcount + 1), 5]].Value := ProcessList;
    excelapp.Run('Process_Report');
    Sleep(2000);
    excelapp.Worksheets.Item['Report1'].printout;
    excelapp.displayalerts := False;
    excelapp.quit;
  finally
    Screen.Cursor := Save_Cursor;
  end;
end;

I'm also getting missing operator or semicolon errors on the blue lines as well as on the red line.

Any ideas??? Leslie
landrews@metrocourt.state.nm.us

There are 10 types of people in the world -
those who understand binary
and
those who don't!

 

[Zathras]

Just got back from lunch. Give me some time and I'll get back to you.

 

[lespaul]

OK - I got it! I was using parens for the array index instead of brackets!! What a helpful error message I received!!! Leslie
landrews@metrocourt.state.nm.us

There are 10 types of people in the world -
those who understand binary
and
those who don't!

 

[Zathras]

Good catch. You may also need to allocate memory for the array(s) with something like this:

begin
  SetLength(HoursWorked,3000);
  for i := Low(HoursWorked) to High(HoursWorked) do SetLength(HoursWorked[i],3000);

P.S. Don't you just love switching back and forth between VB and Pascal?

 

[lespaul]

Don't you just love those little things you search for hours trying to figure out and it's something stupid!!!

As far as switching, aren't we suppose to love it??

Thanks for your help (and yes I have a SetLength) everything seems to be working OK now!

Leslie
landrews@metrocourt.state.nm.us

There are 10 types of people in the world -
those who understand binary
and
those who don't!