Klassen, Erben, private, pulic

[mkinzler]

Delphi-Quellcode:

type
   Klasse1 = class
    private
     FA: string;
    public
     B: Integer;
     procedure setA( value: string);
    published
     property A: string read FA write setA;
   end;
   
...
var
  c1: Klasse1;

...
    procedure Klasse1.setA( value: string);
    begin
        If value <> '' then FA := Value;
    end; 

...
   c1.B := 1; //Geht
   c1.FA := 'Hallo'; //Geht nicht
   c1.A := 'Hallo'; //Geht, FA wird mit Hallo überschrieben
   c1.A := '';  //Geht, FA behält aber alten Wert