Zugriff auf procedure und funktionen nicht instanziierter Klassen / Objekte

[Lemmy]

Zitat von DSCHUCH:

hier mal ein einfaches bsp.

Was zum Geier ist daran einfach? Zudem greifst Du wieder nicht auf ein Feld/Variable der nicht instanziierten Klasse zu.

Delphi-Quellcode:

  TTest = class(TObject)
  private
    FTestProperty: Integer;
  public
    procedure DoSomething;
    function DoAnything: Integer;
    property TestProperty: Integer read FTestProperty write FTestProperty;
  end;


function TTest.DoAnything: Integer;
begin
  result := FTestProperty + 1;
end;

procedure TTest.DoSomething;
begin
  ShowMessage('Hallo Welt');
end;


procedure TForm1.Button1Click(Sender: TObject);
var Test: TTest;
begin
  Test.DoSomething;
  Test.TestProperty := 10;
  ShowMessage(IntToStr(Test.DoAnything));
end;

Und jetzt das Entscheidende: Schalte die Optimierung von Delphi aus! Sonst bekommst Du erst am Ende einen Zugriffsfehler!