Skriv til private variable i den ned arvet class?????

Hej

Hvis du opretter din nedarvet class i samme unit som classen de nedarver fra, så kan du tilgå privat members.

Men som Nørden skriver, så ryger meningen lidt med private members.

som eksempel:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TBil = class
  private
    Farve : Integer;
  public
    MotorKWh : Integer;
  end;

  TRacerBil = class(TBil)
    procedure SetMsg;
  end;



var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TRacerBil.Create do
    SetMsg;
end;

procedure TRacerBil.SetMsg;
begin
  MessageDlg(IntToStr(Farve)+' '+IntToStr(MotorKwh), mtWarning, [mbOK], 0);
end;

end.

mvh Max.

hvis han har adgang til selve koden, kan han også bare rette scopet fra private til protected og dermed undgå at bruge det der som jeg anser for en fejl i delphi og som jeg da havde forventet de efterhånden havde rettet

Det er rigtigt at man kan benytte private-felter inden for den samme pas-fil. Jeg ved ikke om det var med vilje, men det har da sine fordele nogen gange. Hvis man virkelig vil have at et felt er privat, er der blevet tilføjet muligheden for at skrive strict foran private (og protected), som gør at et private-felt kun kan tilgås af klassen hvor feltet er deklareret.

ville jo lidt ødelægge hele pointen i private, men hvis ham der har lavet klassen ønsker at du skal kunne rette i det kan det jo være han har lavet en set til den eller en property til den.

Jeg ville have sagt det samme, men da jeg ikke har en døjt forstand på delphi og slet ikke vidste om protected fantes valgte at tie stille.

Ja men det var svaret på spørgsmålet.
Man kan rent faktisk redigere i privat fra parent class.
Og der må jo være en mening med galskaben??.

Tak for svaret