Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Treeview in RichEdit kopieren (https://www.delphipraxis.net/120704-treeview-richedit-kopieren.html)

julchen 15. Sep 2008 15:55


Treeview in RichEdit kopieren
 
Hallo,

ich möchte den Inhalt einer TreeView an ein RichEdit übergeben.
Doch das funktioniert so nicht und ich weiss nicht, warum? :gruebel:
Delphi-Quellcode:
var
        i: integer;
begin
     For i := 0 to JvTreeView1.Items.Count - 1 do
     begin
       JvTreeView1.Items[i].Text := '[url="' + JvTreeView1.Items.Item[i].Text + '"]' + JvTreeView1.Items.Item[i].Text + '[/url]';
       JvRichEdit1.Lines.Text := JvTreeView1.Items[i].Text;
     end;
end;

toms 15. Sep 2008 16:31

Re: Treeview in RichEdit kopieren
 
Hallo,

Ich verstehe nicht ganz,


1. jedem TreeView Item ein "'<a href=" zuweist
2. mit JvRichEdit1.Lines.Text := ... jedesmal den gesamten Text im RichEdit überschreibst.

Möchtest du so etwas in dieser Art?

Delphi-Quellcode:
var
  i: integer;
begin
  with JvTreeView1.Items do
     for i := 0 to Pred(Count) do
     begin
       JvRichEdit1.Lines.Add('[url="' + Item[i].Text + '"]' + Item[i].Text + '[/url]');
     end;
end;

julchen 16. Sep 2008 08:22

Re: Treeview in RichEdit kopieren
 
Vielen Dank,

Deine Lösung ist sogar noch besser als mein Gedankengang!
Ich sehe im Moment aber noch nicht, wo bei mir der Fehler liegt und wo ich das RichEdit überschreibe :wall:

toms 16. Sep 2008 08:26

Re: Treeview in RichEdit kopieren
 
Zitat:

Zitat von julchen
Ich sehe im Moment aber noch nicht, wo bei mir der Fehler liegt und wo ich das RichEdit überschreibe :wall:

Siehe oben:

Zitat:

Zitat von toms
2. mit JvRichEdit1.Lines.Text := ... jedesmal den gesamten Text im RichEdit überschreibst.



Alle Zeitangaben in WEZ +1. Es ist jetzt 20:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz