Auf private Variable zugreifen

[Andreas L.]

z. B. so:

Delphi-Quellcode:

  TfrxBarcode2DView = class(TfrxView)
  private
    FBarCode: TfrxBarcode2DBase;
  published
    property BarCode: TfrxBarcode2DBase read FBarCode;
    // wenn der Wert nicht nur ausgelesen sondern auch
    // verändert werden soll, dann kann oder muss noch ein Setter angegeben werden
    property BarCode: TfrxBarcode2DBase read FBarCode write SetBarCode;
    // Siehe ein Tutorial zu Klassen & deren Eigenschaften...
  end;

  ...

// Beispiel für den Zugriff/Aufruf:
procedure TForm1.Button1Click(Sender: TObject);
var
  2DView: TfrxBarcode2DView;
begin
  2DView := TfrxBarcode2DView.Create;  
  try
    // Zugriff auf eine Funktion 
    2DView.BarCode.FuncXYZ();
  finally
    FreeAndNil(2DView); 
  end;
end;