Wieso gibt es hier eigentlich noch keinen "Danke"-Button?
Zu deinem Code oben.
Ich habe es jetzt erst einmal vorläufig so gemacht:
Delphi-Quellcode:
// unit _globals.pas (vorläufig bleibt es bis Zeit habe und richtig umbaue)
type
TTestRecord =
packed record
test, hallo, huhu: Int64;
end;
var aTestRecord: TTestRecord;
// Unit _enums.pas (das ist weg)
// type
// TTestEnum = (test, hallo, huhu);
// unit log_utils.pas
procedure test(iTarget: Int64; iIncrement: Integer = 1);
begin
TInterLocked.Add(iTarget, iIncrement);
end;
// unit... überall da wo ich es brauche
test(aTestRecord.hallo, 5);
test(aTestRecord.huhu);
Ist das trotzdem schon besser als vorher?