Seit Jahren drücke ich mich vor dem Thema TreeView. Nun aber als guten Vorsatz für den Sommer.
Also ziel ist es eine Art Ordnerstruktur abzubilden. Nun Frage ich mich wie Speichere ich denn das in die Datenbank?
Die ID's ändern sich ja ständig(also immer wenn ein Eintrag/Untereintrag dazu kommt)
Und wie erkenne ich überhaupt ob das ein "Untereintrag" ist und was die Eltern sind?
Also Blöd gefragt wie bekomme ich das in eine Datenbank?
Code: Alles auswählen
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
TreeView1: TTreeView;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TreeView1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
if (TreeView1.Items.SelectionCount = Null ) then begin
TreeView1.Items.add(Nil,Edit1.text)
end else begin
TreeView1.Items.AddChild(Treeview1.Selected, Edit1.text);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TreeView1.Items.add(Nil,'Ordner 1');
TreeView1.Items.AddChild(TreeView1.Items.Item[0],'Unter Ordner 1');
TreeView1.Items.AddChild(TreeView1.Items.Item[0], 'Unter Ordner 2');
TreeView1.Items.AddChild(TreeView1.Items.Item[0], 'Unter Ordner 3');
TreeView1.Items.AddChild(TreeView1.Items.Item[1], 'Unter Unter Ordner 1');
TreeView1.Items.AddChild(TreeView1.Items.Item[1], 'Unter Unter Ordner 2');
TreeView1.Items.add(Nil,'Ordner 2');
TreeView1.Items.add(Nil,'Ordner 3');
end;
procedure TForm1.TreeView1Click(Sender: TObject);
begin
// gibt den Makierten Text wieder
// ShowMessage(Treeview1.Selected.text);
// Zählt die Einträge von oben nach unten druch das ist nicht möglich das in die Datenbank zuschreiben
// ShowMessage(Inttostr(Treeview1.Selected.AbsoluteIndex));
end;
end.