Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

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

Re: Parent eines Objektes herausfinden

  Alt 11. Jan 2010, 23:18
Zitat von s.h.a.r.k:
Aber evtl. brauch er diese Variable als Property oder dergleichen? Oder hat diese eben *beabsichtigt* dort angelegt. Wobei dein Rat nicht missachten ist!
Wer hindert ihn daran, dass als property zu veröffentlichen?
Delphi-Quellcode:
type
  TConfig = class(TObject)
    privat
      // a : String; Braucht kein Mensch mehr
      ConfigForm : TConfigForm;
      function GetInfo : string;
      procedure SetInfo( Value : string );
    public
      property Info : string read GetInfo write SetInfo;
  end;

function TConfig.GetInfo : string;
  begin
    RESULT := ConfigForm.InfoFuerParent;
  end;

procedure TConfig.SetInfo( Value : string );
  begin
    ConfigForm.InfoFuerParent := Value;
  end;
Ich nicht, und Delphi schon mal garnicht
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)
  Mit Zitat antworten Zitat