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.