frage zu treeview

[Zero1]

Delphi-Quellcode:

procedure TForm1.InfolistClick(Sender: TObject);
begin
if infolist.Selected.Text='test'
 then memo1.text('test blablabla');
end;

hum weis einer maybe wie ich den text bekomme? wenn ich zb auf das item

test clicke in treeview sollte in der memo1 ('test blablabla'); geschrieben sein? weis einer wo das prob liegt?

danke schon im vorraus!

zero1

[Jens Schumann]

Hallo,
nutze doch das OnChange Event.

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  If Node<>Nil then
    Memo1.Text:=Node.Text;
end;

[Zero1]

nun ja das event wäre was ,aber in der memo soll ca 1 seite mit text aufgelistet werden *g*

büdde help!!

zero1

[infolist = treeview]

[Christian Seehase]

Moin Zero1,

das ginge, z.B. mit Memo1.Lines.LoadFromFile.

Wichtig ist in jedem Falle das was Jens geschrieben hat. Du musst abfragen, ob überhaupt ein Item ausgewählt wurde.
Es ist schliesslich möglich, dass Du (bezogen auf das OnClick) auf den TreeView klickst, ohne ein Item zu markieren. Dann wäre InfoList.Selected = nil, und das Ansprechen von InfoList.Selected.Text läuft auf eine Exception.
Statt der Eigenschaft Text könntest Du auch Data benutzen.
Nachteil: Die Eigenschaft muss zusätzlich zum Text gefüllt werden.
Vorteil: Man muss nicht auf die Schreibweise von Text achten, da man Data numerisch vergleicht.

[Zero1]

Code:

Memo1.Text:=Node.Text;

ich finds eh gut aber prob is node.text ! es wird ja von einer file die texte geladen oder nicht? kann man das nicht gleich im prog rein machen?


zero1

[Christian Seehase]

Moin Zero,

um welche Textmengen geht's denn so?
(je Memo Eintrag, und gesamt)

[Zero1]

hiho hase :p

ca 100 - 150 lines

zero1

[Christian Seehase]

Moin Zero,

gesamt oder je...

[Zero1]

gesamt *g*

also ich benötige ca 100-150 zeilen! die länge is dabei egal!

deswegen auch
then memo1.text('test blablabla........................ etc'); zero1

[Christian Seehase]

Moin Zero,

die Text könntest Du als Resourcen in Deinem Programm unterbringen, und zwar einfach unter verwendung von Resourcestring.

Delphi-Quellcode:

resourcestring
 _rsText1 = 'Zeile1'#13#10'Zeile2'#13#10'Zeile3';
 _rsText2 = //...
 //...