Warum wird eine falsche Variable in einem Objekt bearbeitet

[Ykcim]

Hui hui hui, jetzt bekomme ich aber gerade mein Fett weg

Ich generiere die Properties, Getter und Setter über die Modellierung, daher wurde sie entsprechend aufgesetzt...

@ michaelthuma
TUnternehmen wird in anderen Proceduren und Funktionen der Klassen TUser verwendet.
Meinst Du mit Werten den Variablen-Namen? Wenn ja, dann lautet die Antwort "Ja", das sind die echten Namen.

@nuclearping
Ich habe den Code jetzt etwas anders formatiert und hoffe, dass er so besser zu lesen ist. User_Rollen ist meines Erachtens vorhanden (die vorletzte Variable).

Zitat:

Warum verwendest du EINE Stringvariable, um mehrere Werte zu speichern?

Ich speichere mehrere Werte in einem String, weil es an dieser in meinen Augen Stelle Sinn macht. Der String wird nämlich später in einem SQL-Statement verwendet.

Zitat:

) Du brauchst für Properties, die du direkt liest und schreibst und wo sonst nichts weiter passiert keine extra Getter und Setter. (siehe published-Bereich oben)

Wie das funktioniert weiß ich leider nicht. Ich kenne bislang nur diesen Weg...

@ALL
Vielen Dank für die Anregungen, lerne gerne dazu!!!
Sieht jemand denn vielleicht auch die Ursache für den Fehler?

Vielen Dank
Patrick

Delphi-Quellcode:

type
   TUser = class(TUnternehmen)
   strict protected
      FUser_ID:Integer;
      FUser_Name:string;
      FUser_Vorname:string;
      FUser_Adresse_ID:Integer;
      FUser_Abteilung_ID:Integer;
      FUser_Telefon: string;
      FUser_Fax: string;
      FUser_Mobil: string;
      FUser_Mail: string;
      FUser_Passwort: string;
      FLogFile_ID: integer;
      FUser_Rechte: string;
      FUser_Default_Folder: string;
      FUser_LogIn: string;
      FUser_Rollen: string;
      FUser_Norm_Mandanten: string;

   strict private
      function GetUser_Abteilung_ID :  integer;
      procedure SetUser_Abteilung_ID(val :  integer);
      function GetUser_Fax :  string;
      procedure SetUser_Fax(val :  string);
      function GetUser_ID : Integer;
      procedure SetUser_ID(val : Integer);
      function GetUser_Mail :  string;
      procedure SetUser_Mail(val :  string);
      function GetUser_Mobil :  string;
      procedure SetUser_Mobil(val :  string);
      function GetUser_Vorname :  string;
      procedure SetUser_Vorname(val :  string);
      function GetUser_Name :  string;
      procedure SetUser_Name(val :  string);
      function GetUser_Passwort :  string;
      procedure SetUser_Passwort(val :  string);
      function GetUser_Telefon :  string;
      procedure SetUser_Telefon(val :  string);
      function GetLogFile_ID :  integer;
      procedure SetLogFile_ID(val :  integer);
      function GetUser_Rechte :  string;
      procedure SetUser_Rechte(val :  string);
      function GetUser_Default_Folder :  string;
      procedure SetUser_Default_Folder(val :  string);
      function GetUser_LogIn :  string;
      procedure SetUser_LogIn(val :  string);
      function GetUser_Adresse_ID :  integer;
      procedure SetUser_Adresse_ID(val :  integer);
      function GetUser_Rollen :  string;
      procedure SetUser_Rollen(val :  string);
      function GetUser_Norm_Mandanten :  string;
      procedure SetUser_Norm_Mandanten(val :  string);
   public
      property User_Abteilung_ID :  integer
         read GetUser_Abteilung_ID
         write SetUser_Abteilung_ID;
      property User_Fax :  string
         read GetUser_Fax
         write SetUser_Fax;
      property User_ID : Integer
         read GetUser_ID
         write SetUser_ID;
      property User_Mail :  string
         read GetUser_Mail
         write SetUser_Mail;
      property User_Mobil :  string
         read GetUser_Mobil
         write SetUser_Mobil;
      property User_Vorname :  string
         read GetUser_Vorname
         write SetUser_Vorname;
      property User_Name :  string
         read GetUser_Name
         write SetUser_Name;
      property User_Passwort :  string
         read GetUser_Passwort
         write SetUser_Passwort;
      property User_Telefon :  string
         read GetUser_Telefon
         write SetUser_Telefon;
      property LogFile_ID :  integer
         read GetLogFile_ID
         write SetLogFile_ID;
      property User_Rechte :  string
         read GetUser_Rechte
         write SetUser_Rechte;
      property User_Default_Folder :  string
         read GetUser_Default_Folder
         write SetUser_Default_Folder;
      property User_LogIn :  string
         read GetUser_LogIn
         write SetUser_LogIn;
      property User_Adresse_ID :  integer
         read GetUser_Adresse_ID
         write SetUser_Adresse_ID;
      property User_Rollen :  string
         read GetUser_Rollen
         write SetUser_Rollen;
      property User_Norm_Mandanten :  string
         read GetUser_Norm_Mandanten
         write SetUser_Norm_Mandanten;

   {!Intelligente Funktionen und Proceduren}
   Private
      function Load_User_Rollen(User_ID: integer): string;
      procedure Load_User_Rechte( User_ID:integer);
      function User_Insert: integer;
      function User_Update(User_ID: integer): integer;
   Public
      procedure Load_User( User_ID:integer);
      procedure Clear_User;
      function Load_User_ID (LogIn: string): integer;
      function User_Speichern (User_ID: integer): integer;
   end;

var   User: TUser;                  //Daten des angemeldeten Benutzers
      User_Management: TUser;       //Um einen Benutzer zu verändern
      User_Neu: TUser;              //Geänderte User-Daten

implementation

uses LogInUnit, TEinstellungenUnit;

function TUser.GetUser_Abteilung_ID:  integer;
begin
   Result:= FUser_Abteilung_ID;
end;

procedure TUser.SetUser_Abteilung_ID(val :  integer);
begin
   FUser_Abteilung_ID:= val;
end;

function TUser.GetUser_Adresse_ID:  integer;
begin
   Result:= FUser_Adresse_ID;
end;

procedure TUser.SetUser_Adresse_ID(val :  integer);
begin
   FUser_Adresse_ID:= val;
end;

function TUser.GetUser_Fax:  string;
begin
   Result:= FUser_Fax;
end;

procedure TUser.SetUser_Fax(val :  string);
begin
FUser_Fax:= val;
end;

function TUser.GetUser_ID: Integer;
begin
   Result:= FUser_ID;
end;

procedure TUser.SetUser_ID(val : Integer);
begin
   FUser_ID:= val;
end;

function TUser.GetUser_Mail:  string;
begin
   Result:= FUser_Mail;
end;

procedure TUser.SetUser_Mail(val :  string);
begin
   FUser_Mail:= val;
end;

function TUser.GetUser_Mobil:  string;
begin
   Result:= FUser_Mobil;
end;

procedure TUser.SetUser_Mobil(val :  string);
begin
   FUser_Mobil:= val;
end;

function TUser.GetUser_Vorname:  string;
begin
   Result:= FUser_Vorname;
end;

procedure TUser.SetUser_Vorname(val :  string);
begin
   FUser_Vorname:= val;
end;

function TUser.GetUser_Name:  string;
begin
   Result:= FUser_Name;
end;

procedure TUser.SetUser_Name(val :  string);
begin
   FUser_Name:= val;
end;

function TUser.GetUser_Passwort:  string;
begin
   Result:=FUser_Passwort;
end;

procedure TUser.SetUser_Passwort(val :  string);
begin
   FUser_Passwort:= val;
end;

function TUser.GetUser_Telefon:  string;
begin
   Result:= FUser_Telefon;
end;

procedure TUser.SetUser_Telefon(val :  string);
begin
   FUser_Telefon:= val;
end;

function TUser.GetLogFile_ID:  integer;
begin
   Result:= FLogFile_ID;
end;

procedure TUser.SetLogFile_ID(val :  integer);
begin
   FLogFile_ID:= val;
end;

function TUser.GetUser_Rechte:  string;
begin
   Result:= FUser_Rechte;
end;

procedure TUser.SetUser_Rechte(val :  string);
begin
   FUser_Rechte:= val;
end;

function TUser.GetUser_Default_Folder:  string;
begin
   Result:= FUser_Default_Folder;
end;

procedure TUser.SetUser_Default_Folder(val :  string);
begin
   FUser_Default_Folder:= val;
end;

function TUser.GetUser_LogIn:  string;
begin
   Result:= FUser_LogIn;
end;

procedure TUser.SetUser_LogIn(val :  string);
begin
   FUser_LogIn:= val;
end;

function TUser.GetUser_Rollen:  string;
begin
   Result:= FUser_Rollen;
end;

procedure TUser.SetUser_Rollen(val :  string);
begin
   FUser_Rollen:= val;
end;

function TUser.GetUser_Norm_Mandanten:  string;
begin
   Result:= FUser_Norm_Mandanten;
end;

procedure TUser.SetUser_Norm_Mandanten(val :  string);
begin
   FUser_Norm_Mandanten:= val;
end;

Delphi-Quellcode:

procedure TFrameUser.GlowDelete_MandantClick(Sender: TObject);
var I: integer;
begin
    if (Grid_Norm_Mandanten.Cells[0,Grid_Norm_Mandanten.Row]='') or (Grid_Norm_Mandanten.Cells[0,Grid_Norm_Mandanten.Row]=IntToStr(User_Neu.User_Unternehmen_ID)) then
       Exit;
    if Grid_Norm_Mandanten.Row>0 then begin
       User_Neu.User_Norm_Mandanten:='';
       if Grid_Mandanten.Cells[0,Grid_Mandanten.RowCount-1]<>'' then
          Grid_Mandanten.AddRow;
       Grid_Mandanten.Cells[0,Grid_Mandanten.RowCount-1]:=Grid_Norm_Mandanten.Cells[0,Grid_Norm_Mandanten.Row];
       Grid_Mandanten.Cells[1,Grid_Mandanten.RowCount-1]:=Grid_Norm_Mandanten.Cells[1,Grid_Norm_Mandanten.Row];
       Grid_Mandanten.Sort(0,sdAscending);
       Grid_Norm_Mandanten.ClearRows(Grid_Norm_Mandanten.Row,1);
       if Grid_Norm_Mandanten.RowCount>2 then
          Grid_Norm_Mandanten.RemoveRows(Grid_Norm_Mandanten.Row,1);
       for I := 1 to Grid_Norm_Mandanten.RowCount -1 do begin
          User_Neu.User_Norm_Mandanten:=User_Neu.User_Norm_Mandanten+Grid_Norm_Mandanten.Cells[0,I]+',';
       end;
       User_Neu.User_Norm_Mandanten:=Copy(User_Neu.User_Norm_Mandanten,1,Length(User_neu.User_Norm_Mandanten)-1);
       GlowSpeichern.Enabled:=true;
       GlowAbbruch.Enabled:=true;
    end;
end;