Thema: Delphi Fehler mit TreeView

Einzelnen Beitrag anzeigen

rantanplan99
(Gast)

n/a Beiträge
 
#2

Re: Fehler mit TreeView

  Alt 18. Jul 2004, 21:57
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;
  Mit Zitat antworten Zitat