Вывод столбца из таблицы в ListBox

[хомякec]

Добрый день, подскажите пожалуйста, как вывести ОДИН стобец (пр. содердит имена) в ListBox1. И в дальнейшем связать его записи с другим ListBox'ом или Memo

[хомякec]

С выводом столбика имен разобрался!)
А как связать записи в этом ListBox'е с Memo. В Мемо к примеру выводится ячейка другого поля из этой таблицы (пр. описание)

[Stilet]

В Мемо к примеру выводится ячейка другого поля из этой таблицы

Я бы описал класс, в котором содержал запись сданными, и его экземпляры привязывал к конкретной строке ЛистВью. После чего при клике по элементу листвью, можно легко выцепить данные из привязанного к нему обьекта:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TKlass=class
   MemoPole:String;
  end;
  TForm1 = class(TForm)
    Memo1: TMemo;
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var k:TKlass;
begin
 k:=TKlass.Create;k.MemoPole:='12123131231'#13#10'dadasdasd';
 with ListView1.Items.Add do begin
  Caption:='1';Data:=k;
 end;

 k:=TKlass.Create;k.MemoPole:='121'#13#10'dada';
 with ListView1.Items.Add do begin
  Caption:='2';Data:=k;
 end;
end;

procedure TForm1.ListView1Click(Sender: TObject);
begin
 Memo1.Lines.Text:=TKlass(ListView1.Selected.Data).MemoPole;
end;

end.

Либо же если это БД, просто запоминал в некий SubItem уникальный ключ (ну или номер записи на худой конец), и при клике просто переходил на ту запись.

[хомякec]

Да у меня БД)) Можно пожалуйсто подробнее про сохранение и переход по номеру записи.

[Stilet]

Можно.
Поставь на форму DBEdit, привяжи его к полю с данными, которые хочешь выводить.
В обработчике ЛистВью пропиши перескок

procedure TForm1.ListView1Click(Sender: TObject);
begin
 with Table1 do begin First;MoveBy(ListView1.ItemIndex);end;
end;

раз уж у тебя привязка по номеру записи, то это вполне приемлемый вариант.

[spikeden]

доброго времени суток. У меня похожая ситуация, таблица базы состоит из 2х полей(заголовок и текст), в listbox помещены записи поля "заголовок", требуется следующее, по клику на записи в лист бокс в компонент richedit должна выводиться запись поля "текст" соответствующей строки из таблицы БД, не могли бы вы подсказать как это реализовать? буду благодарен за любую помощь или ссылочку на литературу.

[Stilet]

То что я выше порекомендовал не подходит?

[spikeden]

Сообщение от Stilet

То что я выше порекомендовал не подходит?

то что описано выше на сколько я понял идёт когда записи в таблице пронумерованы, у меня такого нет, в таблице всего 2 поля