Warum wird eine falsche Variable in einem Objekt bearbeitet

[DeddyH]

Was passiert denn, wenn Du das Feld FUser_Norm_Mandanten als TStrings oder gleich TStringlist deklarierst? Du bräuchtest dann noch eine Add-Methode, der Getter würde die aufbereitete Liste zurückgeben. Und die Liste müsste natürlich im Konstruktor angelegt und im Destruktor wieder freigegeben werden.
[edit] Das klang vielleicht etwas verwirrend, daher hier eine Schmalspurversion des Ganzen:

Delphi-Quellcode:

type
  TUser = class
  strict private
    FMandanten: TStringlist;
    function GetMandanten: string;
  public
    constructor Create;
    destructor Destroy; override;
    procedure AddMandant(const NewMandant: string);
    property Mandanten: string read GetMandanten;
  end;

...

procedure TUser.AddMandant(const NewMandant: string);
begin
  FMandanten.Add(NewMandant);
end;

constructor TUser.Create;
begin
  inherited Create;
  FMandanten := TStringlist.Create;
end;

destructor TUser.Destroy;
begin
  FMandanten.Free;
  inherited;
end;

function TUser.GetMandanten: string;
begin
  Result := FMandanten.CommaText;
end;

[/edit]