Apache
Сообщений: 153
Оценки: 0
Присоединился: 2006-10-13 10:02:03.070000
|
[left]Помогите разрешить задачу: У меня имеется база данных (Парадокс7 - Стандартаня) в которой первое поле ID - автоприрощение (счетчик) индексируется, второе поле Caption - заголовок в фомате Alpha и третее поле - Text в Memo. Также имеется на форме TreeView. подразделы которого создаются так: [/left] [left]procedure TDataModule3.DataModuleCreate(Sender: TObject);[/left][left]var[/left][left]i,Max:integer;[/left][left]begin[/left][left]Max:=DataModule3.Base.RecordCount;[/left][left]DataModule3.Base.First;[/left][left]for i:=1 to Max do[/left][left]begin[/left][left]Form1.TreeView1.Items.AddChild(Form1.TreeView1.Items.GetFirstNode,(DataModule3.Base.FieldByName('Caption').AsString));[/left][left]DataModule3.Base.Next;[/left][left]end[/left][left]end;[/left] [left]Требуется: При событии TreeView1GetSelectedIndex чтобы в Memo1 отображался текст из таблицы поля Text при нажатии по нужному заголовку.[/left] [left] [/left][left]Я пытался сделать так:[/left][left]procedure TForm1.TreeView1GetSelectedIndex(Sender: TObject;[/left][left]Node: TTreeNode);[/left][left]begin[/left][left]DataModule3.Base.FindKey([TreeView1.Items.Item[0].IndexOf(Node)]);[/left][left]Memo1.Lines.Assign(DataModule3.Base.FieldByName('Text')) [/left][left]end;[/left] [left]или же[/left] [left] [/left][left]DataModule3.Base.SetKey;[/left][left]DataModule3.Base.FieldByName('ID').AsInteger:=(TreeView1.Items.Item[0].IndexOf(Node));[/left][left]DataModule3.Base.GotoKey;[/left] [left]Но к сожалению у меня не получается сразу вроде бы переходит а потом Значение TreeView1.Items.Item[0].IndexOf(Node) видимо не изменяется кароч делает так как ему хочется.[/left] Подскажите пожалуйста!!!! ICQ 309197002
|