Strings des letzten TreeView Knoten mit allen Children in ein Richedit schreiben

[jaenicke]

Besser ist es gleich nur Richedit.Lines als Parameter vom Typ TStrings zu übergeben. Dann kann man da auch eine TStringList reinpacken.

Wenn es nämlich nur darum geht das Ergebnis in die Zwischenablage zu packen, macht es absolut keinen Sinn dafür ein TRichEdit als visuelle Komponente zu benutzen. Das ist ausschließlich zur Eingabe und Anzeige da, nicht für die Datenverarbeitung...

Also:

Delphi-Quellcode:

procedure TFDetail.NodesToStrings(const ATarget: TStrings; const ANode: TTreeNode);
var
  CurrentNode: TTreeNode;
begin
  CurrentNode := ANode;
  while Assigned(CurrentNode) do
  begin
    ATarget.Add(CurrentNode.Text);
    NodesToStrings(ATarget, CurrentNode.getFirstChild);
    CurrentNode := CurrentNode.getNextSibling;
  end
end;

procedure TFDetail.copy1Click(Sender: TObject);
var
  LastRootNode: TTreeNode;
  TargetStringList: TStringList;
begin
  LastRootNode := GetLastRootNode(TreeView1);
  if Assigned(LastRootNode) then
  begin
    TargetStringList := TStringList.Create;
    try
      TargetStringList.Add(LastRootNode.Text);
      NodesToStrings(TargetStringList, LastRootNode.getFirstChild);
      Clipboard.AsText := TargetStringList.Text;
    finally
      TargetStringList.Free;
    end;
  end
end;

[Dejan Vu]

Also ich weiß nicht... Eine Methode 'NodesToRichEdit' in 'NodesToString' umbenennen? Was ist denn, wenn die Intention die war, hier noch Formatierungen reinzupacken? Das geht bekanntermaßen mit TStrings nicht so gut (außer, man schreibt Raw-RTF rein).

Es wird ja vom Fragesteller nicht umsonst TRichEdit verwendet (und nicht TMemo).

Und *noch* allgemeingültiger wird das nicht: Das ist eine Methode um Baumknoten in ein *RichEdit* zu packen. Abhängigkeiten: Baum(knoten) + RichEdit. Wenn ich dann zwei Parameter vom Typ 'RichEdit' und 'Baum(Knoten)' habe. Wo sind denn da noch innere Abhängigkeiten?

[DeddyH]

Schau Dir doch den Ausgangscode einfach an, da wird nichts formatiert, von daher kann man getrost auf TStrings umstellen, und das ist sehr wohl allgemeingültiger.

[himitsu]

Zitat von Dejan Vu:

Und *noch* allgemeingültiger wird das nicht:

TCustomRichEdit ... dann könnte es z.B. auch mit den RichEdits anderer Komponentenhersteller funktionieren


Ansonsten können wir auch einfach auf Ajintaro warten und sehen dann, ob er vielleicht doch noch mehr geplant hat, als im Post ersichtlich.

[Dejan Vu]

Zitat von himitsu:

Zitat von Dejan Vu:

Und *noch* allgemeingültiger wird das nicht:

TCustomRichEdit ... dann könnte es z.B. auch mit den RichEdits anderer Komponentenhersteller funktionieren

Yo. Akzeptiert.

[jaenicke]

Zitat von Dejan Vu:

Also ich weiß nicht... Eine Methode 'NodesToRichEdit' in 'NodesToString' umbenennen? Was ist denn, wenn die Intention die war, hier noch Formatierungen reinzupacken?

Was an dem konditionalen Teil meines Posts war denn missverständlich?

Zitat von jaenicke:

Wenn es nämlich nur darum geht das Ergebnis in die Zwischenablage zu packen, ...

[Ajintaro]

Hi DP !

Vielen Dank für die Antworten. Um das ganze mit dem RichEdit mal aufzulösen: ich benutze in der Tat Formatierungen, welche per Copy/Paste mit Übertragen werden. Dazu nutze ich diese Prozedur:

Delphi-Quellcode:

{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
//Richedit message
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
procedure AddMessage(re: TRichEdit; const betreff, msg: string);
begin
  re.SelStart := MaxInt;
  re.SelAttributes.Color := clNavy ;
  re.SelAttributes.Style := [fsBold];
  re.SelText := '___________________________________________________________'+ sLineBreak;
  re.SelAttributes.Color := clNavy ;
  re.SelAttributes.Style := [fsBold];
  re.SelText := 'Version '+vers+ ' <yourname>, '+DateTimeToStr(now)+ sLineBreak;
  re.SelAttributes.Color := clGreen;
  re.SelAttributes.Style := [fsBold, fsItalic];
  re.SelText := betreff+ sLineBreak;
  re.SelAttributes.Color := clBlack;
  re.SelText := msg + sLineBreak;
  re.SelAttributes.Color := clBlack;
end;

Aber wirklich ganz toll ist: function GetLastRootNode ! Damit kann ich wirklich die letzte RootNode ansprechen!