private / public

[Phoenix]

Dann gilt das hier:

Delphi-Quellcode:

unit MeineUnit;

interface

type

   MeineKlasse = Class(TObject)
   private
      function PrivateMethode(arg: string): string;
   protected
      function ProtectedMethode(arg: string): string;
   public
      constructor Create;
      function PublicMethode(arg: string): string;
   end;


implementation

constructor MeineKlasse.Create;
begin
   // nix zu tun...
end;

function MeineKlasse.PrivateMethode(arg: string): string;
begin
   result := arg;
end;


function MeineKlasse.ProtectedMethode(arg: string): string;
begin
   result := arg;
end;


function MeineKlasse.PublicMethode(arg: string): string;
begin
   result := arg;
end;

So sollte das dann tun.