Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#7

AW: Warum geht das eigentlich nicht?

  Alt 19. Jul 2014, 19:36
Ich vermute das dort impliziert eine Methode einkompiliert wird.

Delphi-Referenz durchsuchenGetPropInfo liefert einen Zeiger für die Getter-/Setter-Methode auch wenn es sich um so eine simple Eigenschaftsdeklaration handelt.

Ist aber eben nur eine Vermutung meinereinerseits ...

Laut Wikipedia soll das wohl auch so sein.

Könnte man also einfach ausprobieren, ob
Delphi-Quellcode:
TFoo = class
private
  FBar : integer;
public
  property Bar : integer read FBar write FBar;
end;
den gleichen Code erzeugt wie
Delphi-Quellcode:
TFoo = class
private
  FBar : integer;
  procedure SetBar( const Value : integer );
  function GetBar : integer;
public
  property Bar : integer read FBar write FBar;
end;

procedure TFoo.SetBar( const Value : integer );
begin
  FBar := Value;
end;

function TFoo.GetBar : integer;
begin
  Result := FBar;
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)

Geändert von Sir Rufo (19. Jul 2014 um 19:42 Uhr)
  Mit Zitat antworten Zitat