Danke erstmal für das zahlreiche Feedback
Daraus fasse ich folgende Lösung für mich als am sinnvollsten zusammen:
Delphi-Quellcode:
type
TApplicationUser = class
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
class var UserId: Integer;
end;
...
type
TControlSettings = class
private
{ Private-Deklarationen }
User : TApplicationUser;
public
{ Public-Deklarationen }
procedure SaveSettingstoDatabase;
end;
...
procedure TFormMain.FormCreate(Sender: TObject);
begin
fUserID := GetGlobalUserID; //globale User ID wird von wo auch immer gesetzt bei Programmstart
TApplicationUser.UserId := fUserId;
end;
Allerdings habe ich dabei den Ansatz von Uwe noch nicht beachtet, weil ich ihn noch nicht genau verstanden habe.
Um die Dir fehlende Info nachzureichen:
In der Methode "SaveSettingsToDatabase" sollen die Einstellungen dann in die Datenbank geschoben werden, also
Query-Objekt erzeugen und ein Update/Insert auf eine Tabelle abfeuern.
Die UserId bildet dabei den Foreignkey. Über eine weitere Methode Methode "LoadSettingsFromDatabase" wird dieser Datensatz später wieder ausgelesen