protected/private function in Klasse benutzen

[Pseudemys Nelsoni]

Moin,

ich habe 2 Klassen: KlasseA und KlasseB. KlasseB hat INSTANZEN von KlasseA...
Das Problem ist jetzt, das ich die protected/private funktionen von KlasseA nicht aufrufen kann...wegen der Sichtbarkeit halt. Ich brauche sie dort aber, also was kann ich jetzt machen?
Die Funktionen dürfen auf keinen Fall Publik werden!

Im Grunde sieht das ganze z.Z so aus:

Delphi-Quellcode:

function KlasseB.EineProzedur();
var
  A: KlasseA;
begin
  if Assigned(FSomething) then
  begin
    A := KlasseA.Create:
    try 
      A.SetAddress(s)
      FSomething(A);
    finally
      A.Free;
    end;
  end;
end;

d.h ich übergebe einem Ereignis eine Klasse...nur darf die "SetAddress" dort nicht zu benutzen sein... aber hier in diesem Code sollte es schon möglich sein da ich sie brauche.

Jemand ne Idee?

BTW: Ist es überhaupt sinnvoll Klassen zu übergeben? Denn der Benutzer meiner Kompoente könnte ja auch "Free" aufrufen, was er aber ja nicht sollte...

[Luckie]

Du könntest die Klassen in eine Unit machen. Dann müsste Klasse B auch die privaten Methoden der Klasse A sehen können. Da die Klassen ja soieso zusammengehören, wäre es auch sinnvoll.

[Pseudemys Nelsoni]

Danke Luckie.

[Kedariodakon]

Und wenn man die mal nicht in eine Unit machen kann?


Bye

[Luckie]

Zitat von Kedariodakon:

Und wenn man die mal nicht in eine Unit machen kann?

Können tut man immer. Ob man will ist was anderes. Aber warum sollen nich zwei voneinander abhängige Klassen in eine Unit?

[Kedariodakon]

Zitat von Luckie:

Zitat von Kedariodakon:

Und wenn man die mal nicht in eine Unit machen kann?

Können tut man immer. Ob man will ist was anderes. Aber warum sollen nich zwei voneinander abhängige Klassen in eine Unit?

Hmm weil die Basisklasse-Unit z.b. nicht von mir ist und ich sie nicht so ohne weiteres ändern kann/darf...


Bye