Hi,
bisher hatte ich meine oft genutzten Proceduren/Funktionen in einer Klasse untergebracht, um einfach auf sie zuzugreifen.
Da es aber langsam unübersichtlich wird, wollte ich die Proceduren durch eine 2te Klasse schachteln un thematisch ordnen
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
hier mein versuch:
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.