DBGrid. Проблема со считыванием инфы из столбца. - БД в Delphi

Teenager · 17.01.2008, 13:56

У меня такая проблема: На форме кроме DBGrid`a стоит ещё и Image1.
Цель такова: Мне надо чтоб когда листали DBgrid в поле Image1 появлялась картинка "наименования" находящегося в третьем столбце DBGrid`a. Картинка имеет имя типа "наименование.bmp" и находится в каталоге с проектом. Я не знаю как мне вытащить значение третьего столбца, приписать к нему ".bmp" и вставить в Image1.
Заранее благодарен.

P.S. Я просто тока начал сегодня разбираться с БД в Делфи.

Stilet · 17.01.2008, 14:12

Показывай как делаешь

_SERGEYX_ · 17.01.2008, 14:25

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
image1.Picture.LoadFromFile(Table1. Fields[3].AsString+'.bmp');
end;

Stilet · 17.01.2008, 14:45

Table1.Fields[3].AsString скорее всего просто возвращает имя файла
значит:

Код:

image1.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+Table1.Fields[3].AsString+'.bmp');

Будет правильнее.

Teenager · 17.01.2008, 15:23

Спасибо, разобрался.

Teenager · 18.01.2008, 10:56

Но на счёт процедуры "procedure TForm1.Table1AfterScroll(DataSet: TDataSet);", пишет "Undeclared Identifier: 'Table1AfterScroll'".
Может её(эту процедуру) надо добавить в var`ы??? Помогите плз ещё раз.

mihali4 · 18.01.2008, 15:33

Процедуру в переменные? Оригинально... А самое главное - свежо...

Похоже, вы процедуру полностью ручками прописывали? Если так, то немудрено, что вы получаете такое сообщение.
Посмотрите, есть ее объявление в разделе описания компонентов формы (перед Private declarations)?
Если нет, скопируйте туда строку заголовка процедуры и удалите из нее (только там) TForm1.

17.01.2008, 13:56	#1
Teenager Регистрация: 17.01.2008 Сообщений: 3	DBGrid. Проблема со считыванием инфы из столбца. У меня такая проблема: На форме кроме DBGrid`a стоит ещё и Image1. Цель такова: Мне надо чтоб когда листали DBgrid в поле Image1 появлялась картинка "наименования" находящегося в третьем столбце DBGrid`a. Картинка имеет имя типа "наименование.bmp" и находится в каталоге с проектом. Я не знаю как мне вытащить значение третьего столбца, приписать к нему ".bmp" и вставить в Image1. Заранее благодарен. P.S. Я просто тока начал сегодня разбираться с БД в Делфи.

17.01.2008, 14:12	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Показывай как делаешь I'm learning to live...

17.01.2008, 14:45	#4
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Table1.Fields[3].AsString скорее всего просто возвращает имя файла значит: Код: `image1.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+Table1.Fields[3].AsString+'.bmp');` Будет правильнее. I'm learning to live...

17.01.2008, 15:23	#5
Teenager Регистрация: 17.01.2008 Сообщений: 3	Спасибо, разобрался. Последний раз редактировалось Teenager; 18.01.2008 в 10:56.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Поиск инфы в интернете - 40 р	N!ckeL	Фриланс	1	30.06.2008 09:12
проблема с отображением DBGrid	gotex	БД в Delphi	12	04.06.2008 01:06
Поиск по нескольким БД с выводом инфы в одной форме	Алина_Алина	Microsoft Office Excel	11	19.05.2008 20:07
Организация поиска с выводом инфы в форму	Алина_Алина	Microsoft Office Excel	3	16.05.2008 23:20
Сбор инфы с сайта.	Mss_Smith	Помощь студентам	6	17.06.2007 16:26

17.01.2008, 14:25	#3
_SERGEYX_ Участник клуба Регистрация: 07.07.2007 Сообщений: 1,518	procedure TForm1.Table1AfterScroll(DataSet: TDataSet); begin image1.Picture.LoadFromFile(Table1. Fields[3].AsString+'.bmp'); end;

18.01.2008, 10:56	#6
Teenager Регистрация: 17.01.2008 Сообщений: 3	Но на счёт процедуры "procedure TForm1.Table1AfterScroll(DataSet: TDataSet);", пишет "Undeclared Identifier: 'Table1AfterScroll'". Может её(эту процедуру) надо добавить в var`ы??? Помогите плз ещё раз.

18.01.2008, 15:33	#7
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Процедуру в переменные? Оригинально... А самое главное - свежо... Похоже, вы процедуру полностью ручками прописывали? Если так, то немудрено, что вы получаете такое сообщение. Посмотрите, есть ее объявление в разделе описания компонентов формы (перед Private declarations)? Если нет, скопируйте туда строку заголовка процедуры и удалите из нее (только там) TForm1.