Fehler mit TreeView

[gerritlober]

Hi,
kann mir jemand sagen, wo hier der Fehler liegt?

Delphi-Quellcode:

procedure TMainWindow.FormShow(Sender: TObject);
var f: Textfile;
    text: String;
    Node: TTreeNode;
begin
  AssignFile(f, 'Theme.dat');
  if not DirectoryExists('Data') then MkDir('Data');
  if FileExists('Theme.dat') then Reset(f)
  else Rewrite(f);
  while not EOF(f) do begin
    Readln(f, text);
    trim(text);
    Node.Text := text;
    if tvChoice.Items.Count = 0 then
      tvChoice.Items.AddFirst(Node, text)
    else
      tvChoice.Items.Add(Node, text);
  end;
  CloseFile(f);
end;

[rantanplan99]

Probiers mal hiermit:

Delphi-Quellcode:

procedure TMainWindow.FormShow(Sender: TObject);
var f: Textfile;
    text: String;
    Node: TTreeNode;
begin
  AssignFile(f, 'Theme.dat');
  if not DirectoryExists('Data') then MkDir('Data');
  if FileExists('Theme.dat') then Reset(f)
  else Rewrite(f);
  while not EOF(f) do begin
    Readln(f, text);
    trim(text);

//  AddFirst brauchst du nicht.
    Node := tvChoice.Items.Add(nil, text);
//  Node ist dein neu ersteller Knoten und der Knoten wird als Knid-Knoten von 'nil' eingefügt, also ganz oben
  end;
  CloseFile(f);
end;

[gerritlober]

Danke, und wie bekomme ich heraus, welches Selektiert ist, ob überhaupt eins selektiert ist und wie bekomme ich die selektierung weg?

[rantanplan99]

Die Online-Hilfe sagt dazu:

Delphi-Quellcode:

property Selected: TTreeNode;

property SelectionCount: Cardinal;
property Selections[Index: Integer]: TTreeNode;

[oki]

Hi,

der zuletzt eingefügte Knoten ist danach immer der selectierte Knoten.

Du kannst generell einen Knoten zwangsweise selectieren, indem du diesem selected zuweist, oder den selectierten Knoten ermitteln in dem du TreeView.Selected abfragst. Hier wird dir der selectierte Knoten zurückgeliefert.

Grundsätzlich empfehle ich dir in deinen Code einen try-finally-Block einzufügen. Am Besten try hinder Reset/Rewrite und CloseFile in finally end. Somit ist sichergestellt, dass dein File auch bei einer Exception in der Bearbeitungsschleife sicher geschlossen wird.

Gruß oki