auto-generete property's......

Ja, lav dine property's først

Property MyVar : Integer;

og tryk så Ctrl + Shift + C

/Martin

martinlind:

takker.

Ved du forresten om man kan "Låse" de forskellige vinduer i editoren?
Altså Object insp., Form designerer osv.

Sådan at man IKKE kan flytte rundt med dem.

du kan låse comp. på dine forms men vist ikke selve vinduerne

æv...

martinlind;

Jeg synes ikke helt at det virker efter hensigten....

hvis jeg skriver:
published

property Firmanavn : String
read getFirmanavn
write setFirmanavn;




Så bliver følgende generet:


type
Person = class
  private
    function getFirmanavn: String;
    procedure setFirmanavn(const Value: String);


protected

published

    property Firmanavn : String
          read getFirmanavn
      write setFirmanavn;
end;

implementation




{ Person }

function Person.getFirmanavn: String;
begin

end;

procedure Person.setFirmanavn(const Value: String);
begin

end;

end.





Men det bliver jo ikke generet nogle variabler, og get'erne
retunerer ikke noget, og set'erne skriver ikke til variablerne

jeg havde forventet noget ala:


type
Person = class
  private
    pFirmanavn : String;
    function getFirmanavn: String;
    procedure setFirmanavn(const Value: String);


protected

published

    property Firmanavn : String
          read getFirmanavn
      write setFirmanavn;
end;

implementation




{ Person }

function Person.getFirmanavn: String;
begin
Result := pFirmanavn;
end;

procedure Person.setFirmanavn(const Value: String);
begin
pFirmanavn := Value;
end;

end.