function in Unterklasse - Erroneus Type

[th_bone]

Hi,

bisher hatte ich meine oft genutzten Proceduren/Funktionen in einer Klasse um einfach auf sie zuzugreifen.

Da es aber langsam unübersichtlich wird, wollte ich die Proceduren durch eine 2te Klasse schachteln um z.B.

aus myfunctions.nowUTC -> myfunctions.time.nowutc zu machen... was an sich auch beim programmieren funktioniert

- aber sobald ich auf eine funktion zugreife bekomme ich eine AccessViolation...

Danke

Ralf

Delphi-Quellcode:

unit myglobal;

interface

uses mytime;

type
  T = class
  public
    time: Tmytime;
  end;

implementation

end.

*********************

unit mytime;

interface

uses   Windows, Forms, SysUtils, jcldatetime, controls;

type
  TmyTime = class
  public
    function nowUTC: TDateTime;
  end;

implementation

function TmyTime.nowUTC: TDateTime;
var
  SystemTime: TSystemTime;
begin
  GetSystemTime(SystemTime);
  with SystemTime do
    Result := EncodeDate(wYear, wMonth, wDay) +
      EncodeTime(wHour, wMinute, wSecond, wMilliseconds);
end;

end.