Альтернатива KeyValue

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Альтернатива KeyValue

Сообщение Pavidlo » 04.03.2011 12:34:25

Может кто-нибудь знает, есть ли в Lazarus Альтернатива св-ву KeyValue
Pavidlo
новенький
 
Сообщения: 41
Зарегистрирован: 16.02.2011 16:04:49

Re: Альтернатива KeyValue

Сообщение Gust » 04.03.2011 12:56:01

Наверное, имеет смысл уточнить альтернативу свойства какого объекта вы ищете.
Gust
новенький
 
Сообщения: 14
Зарегистрирован: 04.03.2011 11:45:24

Re: Альтернатива KeyValue

Сообщение VirtUX » 04.03.2011 12:56:24

Альтернативу ищем в каком классе?
Аватара пользователя
VirtUX
энтузиаст
 
Сообщения: 880
Зарегистрирован: 05.02.2008 10:52:19
Откуда: Крым, Алушта

Re: Альтернатива KeyValue

Сообщение Pavidlo » 04.03.2011 14:39:04

Альтернатива DBLookupComboBox1.keyValue
Pavidlo
новенький
 
Сообщения: 41
Зарегистрирован: 16.02.2011 16:04:49

Re: Альтернатива KeyValue

Сообщение leo_bsv » 04.03.2011 14:56:33

... а чем собственно KeyValue плох?
Аватара пользователя
leo_bsv
постоялец
 
Сообщения: 276
Зарегистрирован: 04.08.2010 16:26:10
Откуда: Йошкар-Ола

Re: Альтернатива KeyValue

Сообщение Pavidlo » 04.03.2011 14:58:24

да в том то и дело, что он не работает) При компиляции ругается именно на него. Вот мне и интересно есть ли какая альтернатива
Pavidlo
новенький
 
Сообщения: 41
Зарегистрирован: 16.02.2011 16:04:49

Re: Альтернатива KeyValue

Сообщение leo_bsv » 04.03.2011 15:11:25

... у него тип variant, для использования нужно привести к нужному типу.
Аватара пользователя
leo_bsv
постоялец
 
Сообщения: 276
Зарегистрирован: 04.08.2010 16:26:10
Откуда: Йошкар-Ола

Re: Альтернатива KeyValue

Сообщение Pavidlo » 04.03.2011 15:19:31

В смысле вот так чтоли?
Код: Выделить всё
VarToStr(DBLookupComboBox1.KeyValue);
Pavidlo
новенький
 
Сообщения: 41
Зарегистрирован: 16.02.2011 16:04:49

Re: Альтернатива KeyValue

Сообщение leo_bsv » 04.03.2011 15:20:14

можно явно... например
Код: Выделить всё
String(DBLookupComboBox1.KeyValue)

а если знаешь из какого типа то можно и так:
Код: Выделить всё
IntToStr(DBLookupComboBox1.KeyValue)
DateToStr(DBLookupComboBox1.KeyValue)
...ToStr(DBLookupComboBox1.KeyValue)
Аватара пользователя
leo_bsv
постоялец
 
Сообщения: 276
Зарегистрирован: 04.08.2010 16:26:10
Откуда: Йошкар-Ола

Re: Альтернатива KeyValue

Сообщение Pavidlo » 04.03.2011 15:30:49

Как ни крути, а ошибка все таже unit7.pas(60,30) Error: identifier idents no member "keyvalue"
Pavidlo
новенький
 
Сообщения: 41
Зарегистрирован: 16.02.2011 16:04:49

Re: Альтернатива KeyValue

Сообщение Mr.Smart » 04.03.2011 15:49:32

Приведите кусок кода, на который указывает ошибка.
Mr.Smart
долгожитель
 
Сообщения: 1796
Зарегистрирован: 29.03.2008 01:01:11
Откуда: из леса!

Re: Альтернатива KeyValue

Сообщение Pavidlo » 04.03.2011 15:55:49

Код: Выделить всё
Form1.SQLUser.SQL.Add('select * from user where id_user ='+VarToStr(Form1.DBLookupComboBox1.KeyValue)+';');     
Pavidlo
новенький
 
Сообщения: 41
Зарегистрирован: 16.02.2011 16:04:49

Re: Альтернатива KeyValue

Сообщение Gust » 04.03.2011 15:57:43

А модуль DbCtrls смотрели? У меня такого свойства там нету... Компилер, вроде, говорит о том же.
Что-то типа DBLookupComboBox1.DataSource.DataSet.FieldByName(DBLookupComboBox1.KeyField).AsString; не подойдет?
Gust
новенький
 
Сообщения: 14
Зарегистрирован: 04.03.2011 11:45:24

Re: Альтернатива KeyValue

Сообщение leo_bsv » 04.03.2011 17:24:25

вот мой запрос из проги которую сейчас пишу, всё работает...
Код: Выделить всё
  s:='insert into orders values('+
     NumberE.Text+', null,'+
     String(ClientLCB.KeyValue)+',null,'+
     //IntToStr(SalesOutletLCB.KeyValue)+','+
     ClientNumberE.Text+','+
     DatePerfDE.Text+','+
     DateShipDE.Text+','+
     IntToStr(StatusCB.ItemIndex)+','+
     PackDataToQuery+
     PriceBar.Panels[1].Text+','+
     PriceBar.Panels[2].Text+');';


Добавлено спустя 4 минуты 48 секунд:
вот объявление класса из юнита dbctrls.pp 28579 2010-12-01 10:15:05Z
Код: Выделить всё
  { TDBLookupComboBox }

  TDBLookupComboBox = class(TCustomDBComboBox)
  private
...
  protected
...
  public
...
    property KeyValue: variant read GetKeyValue write SetKeyValue;   
...
Аватара пользователя
leo_bsv
постоялец
 
Сообщения: 276
Зарегистрирован: 04.08.2010 16:26:10
Откуда: Йошкар-Ола

Re: Альтернатива KeyValue

Сообщение Pavidlo » 05.03.2011 08:12:23

Ну объявить то это свойство, я объявил. Оно появилось, но ошибка осталось. Видимо как-то не все прописал.. Можно поподробнее посмотреть ваш код объявления класса. Может там процедуры какие еще написать надо
Pavidlo
новенький
 
Сообщения: 41
Зарегистрирован: 16.02.2011 16:04:49

След.

Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 42

Рейтинг@Mail.ru