>have a Delphi 3 application that uses Orpheus 3 components. The app works
>fine, compiles fine...life is grand. Until.... I dropped a SystemTools 3
>StShellTreeView component into one of the apps' forms. Now the project will
>not compile. I now get an error in the \systools\stutils.pas unit, in the
>UnixTimeToStDateTime function...
>
>function UnixTimeToStDateTime(UnixTime : Longint) : TStDateTimeRec;
>begin
> Result.D := Date1970 + (UnixTime div SecondsInDay);
> Result.T := UnixTime mod SecondsInDay;
>end;
>
>The error is "Undeclared identified: 'Date1970'".
>
>If I delete the StShellTreeView component, the project will still not
>compile. Same error occurs. I have to delete both the StShellTreeView
>component PLUS remove the "StShlCtl" reference in the USES section in order
>to get my project to compile.
-
Robert Love [TPX]
rober...@tpx.turbopower.com
Those of us with [TPX] after our names are not TurboPower employees
but a group of folks that have volunteered to assist TurboPower and
help fellow users who have questions about the operation of the products
--
function UnixTimeToStDateTime(UnixTime : Longint) : TStDateTimeRec;
begin
Result.D := Date1970 + (UnixTime div SecondsInDay);
Result.T := UnixTime mod SecondsInDay;
end;
The error is "Undeclared identified: 'Date1970'".
If I delete the StShellTreeView component, the project will still not
compile. Same error occurs. I have to delete both the StShellTreeView
component PLUS remove the "StShlCtl" reference in the USES section in order
to get my project to compile.
What's wrong?
Thanks.
Would it perhaps be due to the fact that I have both Delphi 3 and Delphi 5
installed on my PC, and both use the components/source files from the same
folder where Systools resides?
I have deleted all of the DCUs in both my Systools 3 and Orpheus 2 folders.
Then I recompiled my D3 application, or at least I attempted to... Still
same problem... error in the \systools\stutils.pas unit, in the
UnixTimeToStDateTime function...
function UnixTimeToStDateTime(UnixTime : Longint) : TStDateTimeRec;
begin
Result.D := Date1970 + (UnixTime div SecondsInDay);
Result.T := UnixTime mod SecondsInDay;
end;
By the way, I need to make a correction to my original posting. I am using
Orpheus 2.17, not Orpheus 3.
> Then check your Delphi Library path for any old
> directories that should not be present.
I don't understand what you mean. How would I know an "old directory" if I
saw one?
--
With Regards,
Phillip H. Blanton
TurboPower Software Company
phil...@turbopower.com
Orpheus WAS in front of Systools. I placed Orpheus behind Systools, as you
suggested, and now I do NOT get the error.
Thanks. :-)