Zugriff einer eigenen Klasse auf ein MemoFeld ??

[-lx-]

Hallo.


Und zwar ich habe eine selbstdefinierte Klasse TBinaererBaum bzw. mTBinaeraerBaum.
Nun möchte ich aus Gründen der Überprüfung des Codes, Textstücke in das Memofeld einfügen, welches auf dem Standartform (Form 1) eingefügt worden ist.


Wie stell ich das an? Eine Tochterklasse soll quasi auf das MemoFeld in TForm1 bzw. Unit1 bzw. Form 1 zugreifen.




Mit freundlichen Grüßen

[mkinzler]

Am saubersten fügst du eine Referenzvariable auf ein Memofeld in deine Klasse ein, welches du dann auf das Ausgabememo setzt.

[marabu]

Hallo Alex,

wenn du die Ausgabe im Memo nur während der Testphase benötigst, dann könntest du auch einfach eine globale Prozedur verwenden, die du aus deiner Klasse aufrufen kannst:

Delphi-Quellcode:

procedure Debug(msg: String);
begin
  MainForm.Memo.Lines.Add(msg);
end;

Grüße vom marabu

[-lx-]

Hallo und danke für eure Antworten! =)


Wie meinst du das, mkinzler ? Könntest du mir ein Beispile posten?

Danke marabu, dass mit der Fehlersuche hat sich in dem Zusammenhang erledigt. Daher wäre eine "richtige" und "sauberer" Art auf eine höhere Klasse zuzugreifen angebrachter.

Das eig. Problem ist nun, ich habe einen binären Baum erstellt bzw. der wird nach und nach durch eingabe von Zahlen durch den BENUTZER erstell. Um nun aber zu überprüfen ob er es auch richtig macht soll ich bzw. würde ich gern den Baum grafisch darstellen. Dynamisches anzeigen, also immer den optimalsten abstand etc. pp. werde ich wohl nicht schaffen zu programmieren, aber bis zu einer anzahl von 2^4 Knoten bzw. Wurzeln bzw. Blättern werde ich wohl schaffen. Meien Frage ist nun eig. wieder die gleiche: Wie greif ich aus einer niederen Klasse auf dei PaintBox zu ? Oder soo ich vll. eine extra Klasse erstellen, in der die verschiedenen Zeichenproceduren drnstehen und die dann erst auf die PaintBox zugreifen? Oder soll ich direkt , ohne extra Klasse, darauf zugreife? Wenn ja wie genau ?

Mit der PaintBox habe ich shcon gearbeitet. Jedglich habe ich es noch nicht ganz raus, wie man es hinbekommt, dass das gezeichnete auch weiter sichtbar bleibt, fals man die Paintbox durch ein anderes Fenster verdeckt.





Mit freundlichen Grüßen



PS: Woher weist du dass ich "Alex" heiße ?

[Khabarakh]

Ich würde der Knoten-Klasse eine Methode Draw(aCanvas: TCanvas, ...) spendieren, die sich selbst und alle Unterknoten auf die Canvas zeichnet. Dann erstellst du ein Bitmap, übergibst dessen Canvas dem Wurzel-Objekt und verwendest das Resultat als Background-Bitmap der Paintbox. Feddisch.

[Pfoto]

Mit Referenzfeld ist so etwas gemeint:

Delphi-Quellcode:

TMeineKlasse.Create(AMemo: TMemo);
begin
  [ ... ]
  { Referenz der Memo in interem Zeiger speichern }
  FMemo:= AMemo;

  { Dannnach kannst du auf FMemo zugreifen }
  { etwa so: }
  FMemo.Lines.Add('Debugstring');
  [ ... ]  
end;

Im Hauptprogramm dann über die Parameter dein Memofeld übergeben:

Delphi-Quellcode:

begin
  [...]
  { Beispiel: Memo1 ist in deinem programm vorhanden }
  MeineKlasse:= TMeinKlasse.Create(Memo1);
  [...]
end;

Gruß

Pfoto

[shmia]

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;

[marabu]

Hallo Alex,

Zitat von -lx-:

... dass mit der Fehlersuche hat sich in dem Zusammenhang erledigt. Daher wäre eine "richtige" und "sauberer" Art auf eine höhere Klasse zuzugreifen angebrachter.

Oft ist es genau andersrum - auf einen professionelle Ansatz kommt die Replik "zu aufwändig".

Der abstrakte Datentyp BinaryTree kann mit oder ohne Container-Klasse implementiert werden. Ohne die Fähigkeit zur Selbstdarstellung würde ich eine Single Class Implementierung wählen - hier nur angedeutet:

Delphi-Quellcode:

type
  TBinaryTreeNode = class 
    FValue: Integer;
    FParent: TBinaryTreeNode;
    FLeft: TBinaryTreeNode;
    FRight: TBinaryTreeNode;
    // ...
  end;

Wenn der Baum sich selbstdarstellen können soll, dann würde ich zusätzlich eine visuelle Container-Klasse implementieren:

Delphi-Quellcode:

type
  TBinaryTree = class(TGraphicControl)
    FRoot: TTBinaryTreeNode;
    procedure Draw;
    // ...
  end;

Die Basisklasse kannst du nach deinen Bedürfnissen wählen. Der Vorteil dieser Vorgehensweise ist, dass die Informationen zur Selbstdarstellung nicht redundant bei den Knoten liegen - wo sie auch gar nichts zu suchen haben.

Machst du TBinaryTree zu einem Nachfahren von TGraphicControl, dann brauchst du keine PaintBox, sondern hast ein eigenes canvas property.

Zitat von -lx-:

Woher weist du dass ich "Alex" heiße ?

In Hessen kennt doch jeder jeden - wusstest du das nicht?

Freundliche Grüße

[mkinzler]

Zitat:

PS: Woher weist du dass ich "Alex" heiße ? Wink

Vielleicht aus deinem Profil?

[-lx-]

Ohje Leute, ihr verwirrt mich


Auch unter der Gefahr, dass ihr mir das Board auf den Kopf hauen werdet, unterbreite ich euch mal meine "Phantasien".

Ich dachte mir, dass ich eine neue Klasse erstelle, die von TBinaererBaum gekannt wird und selbst TForm , also das Hauptprogramm, kennt.
Darein kommen die puplic proceduren wie ZeichenWurzel() und/oder ZeichneVerbindug() oder sowas in der Art.

Eig. müsste ich ja dann von TBinaererBaum aus auf diese neue Klasse, nennen wir sie TZeichnen, zugreifen können. Nur ist nun meine Frage wie ich von TZeichnen auf TForm alsodas Hauprpgrogramm druaf zugreifne kann bzw. auf das PaintBox Objekt (KLasse ?), dass ja scheinbar eine Methode von TForm ist.

Bitte bitte seit nachsichtig... ich bin seit halb 7 wach, hab kaum geschalfen aber dafür die theorie bestanden *gähn*







Mit freundlichen Grüßen