Registriert seit: 25. Aug 2009
Ort: Blomberg
120 Beiträge
|
Wieso kann ich das Property nicht aufrufen?
2. Sep 2009, 13:33
Hallo,
könnte ihr mir sagen wieso ich das Property nicht aufrufen kann?
Unit1:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, zahlen;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var zahlenraten: TZahlen;
begin
zahlenraten:= TZahlen.Create;
zahlenraten.SpielerZahl //<--- das Cannot access protected symbol TZahlen.SpielerZahl
end;
end.
Unit 2:
Delphi-Quellcode:
unit zahlen;
interface
type
TZahlen = class(TObject)
private
FSpielerZahl: Integer;
FZahl: Integer;
FSpZahl: Integer;
procedure set_FSpZahl( const AValue: Integer);
procedure Zahl;
protected
property SpielerZahl: Integer write set_FSpZahl;
end;
implementation
procedure TZahlen.set_FSpZahl( const AValue: Integer);
begin
FSpZahl := AValue;
end;
procedure TZahlen.Zahl;
begin
randomize;
FZahl := random(50);
end;
end.
Gruß,
Schnittcher
|
|
Zitat
|