Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#7

Re: Zugriff einer eigenen Klasse auf ein MemoFeld ??

  Alt 5. Jan 2007, 12:08
Erweitere deine Klasse TBinaererBaum um folgendes Property:
property OutputLines:TStrings read FOutputLines write FOutputLines; Und dann zusätzlich diese Hilfsfunktion:
Delphi-Quellcode:
procedure TBinaererBaum.OutputString(const s:string);
begin
   if Assigned(FOutputLines) then FOutputLines.Add(s);
end;
Im Hauptprogramm:
Delphi-Quellcode:
...
  binaerbaum := TBinaererBaum.Create;
  binaerbaum.OutputLines := Memo1.Lines;
Andreas
  Mit Zitat antworten Zitat