Исходник врядли, это мой проэкт, он большой
Объясняю:
Изображения с расширениме jpg храняться в таблице, в таблице
6 столбцов
придположим структура таблицы:
imya,familiya,otchestvo,foto!
Код:
procedure TForm8.DBGrid1DblClick(Sender: TObject);
//допустим таблица уже выведена в DBGrid1, и я вижу все записи таблицы, делаю двойной клик на нужной мне записи
и мне надо вывести эту запись на одтельные компоненты (допустим Label)
Label1.Caption:=DBGrid1.Columns.Items[0].Field.AsString;//получил имя из выделенной записи
Label2.Caption:=DBGrid1.Columns.Items[1].Field.AsString;//получил фамилию
Label3.Caption:=DBGrid1.Columns.Items[2].Field.AsString;// получил отчество
//счас буду выводить фото выбранного человека
//начинаю работаь с jpg
Jpg:=TJPegImage.Create;
Jpg.Assign(DBGrid1.Columns.Items[3].Field);//получил доступ к фото человека
Image1.Picture.assign(jpg);//вывел его фото в компонент Image1
вот и все
номерация в базе идет с нуля!
в БДГрид надо добавить все имя полей, которые ты будешь использовать
не нужные просто скрываешь и все