Registriert seit: 23. Mai 2011
Ort: Furth im Wald
308 Beiträge
Delphi 11 Alexandria
|
AW: Auf private Variable zugreifen
17. Nov 2014, 14:32
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;
|
|
Zitat
|