Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ComboBox+Table [D7, WinXP]


Страницы:   1 2

FFF ©   (2005-09-15 22:34:00) 

Как мне в список ComboBox добавить числовые значения из таблицы типа Table из колонки, ну например Number?


Anatoly Podgoretsky   (2005-09-17 14:15:00) [1]

FFF   (16.09.05 22:22) [19]
Тут надо писать тип переменной.


DesWind   (2005-09-16 22:43:00) [2]


> Игорь Шевченко ©   (16.09.05 22:39) [22]


Неужели, терпения хватит? ))))


Игорь Шевченко   (2005-09-16 22:39:00) [3]


> а тут что писать?


string ?


DesWind   (2005-09-16 22:27:00) [4]


> FFF   (16.09.05 22:22) [19]


Читать книжки и никак иначе. По мне, так под авторством Фаронова, для начала.


Германн   (2005-09-16 22:26:00) [5]

2 FFF   (15.09.05 22:34)
Ты за этот период не привел ни одного  своего варианта! Который мы могли бы проанализировать!
Дальше иди просить в метро!


FFF   (2005-09-16 22:22:00) [6]

ну да, это я понимаю


var
x: а тут что писать?


Игорь Шевченко   (2005-09-16 21:58:00) [7]


> Я знаю что нужно объявить перененную только вот через что?


через var ?


DesWind   (2005-09-16 21:58:00) [8]

В TTable заначение поля имеет тип Variant. Т.е. там может хранится переменная любого типа. Значение поля можно попробовать преобразвать к какому-то конкретному типу. AsString, AsFloat, и т.д. это свойства(методы), которые пытаются преобразовать переменную типа Variant, к какому-либо конкретному типу. Думаю это и есть ответ на твой вопрос.


FFF   (2005-09-16 21:50:00) [9]

Да я знаю опыта у меня ещё малова-то но всё же?
Я знаю что нужно объявить перененную только вот через что?


Игорь Шевченко   (2005-09-16 20:40:00) [10]

FFF   (16.09.05 20:24) [13]


> Чёего-то не хватает?!


Очевидно опыта


DesWind   (2005-09-16 20:36:00) [11]


> FFF   (16.09.05 20:24) [13]


Мож, всёж-таки, какой "талмуд" стоит почитать, прежде чем за БД браться?

Ты перемнную-то объявил?


FFF   (2005-09-16 20:24:00) [12]


> erika ©   (16.09.05 16:59) [12]


[Error] Unit1.pas(179): Undeclared identifier: 'x'

Чёего-то не хватает?!


erika   (2005-09-16 16:59:00) [13]


> ShiFT   (16.09.05 08:59) [9]

перед этим листингом поставь
x :=''
после
> while not Table1.Eof do begin


if x <>Table1.FieldByName('Number').AsString then

затем
if ComboBox1.Items.IndexOf( Table1.FieldByName('Number').AsString) = -1 then
  Combobox1.Items.Add( Table1.FieldByName('Number').AsString);
end
x :=Table1.FieldByName('Number').AsString;
Table1.next;
end;

все должно работать


Digitman   (2005-09-16 16:13:00) [14]


> Не получается


либо воспользуйся встроенным в Делфи отиладчиком либо переквалифицируйся в управдомы


FFF   (2005-09-16 16:06:00) [15]


> ShiFT   (16.09.05 08:59) [9]


Не получается, вообще ничего в список не добавляется


ShiFT   (2005-09-16 08:59:00) [16]

while not Table1.Eof do begin
 if ComboBox1.Items.IndexOf( Table1.FieldByName('Number').AsString) = -1 then
   Combobox1.Items.Add( Table1.FieldByName('Number').AsString);
 Table1.Next;
end;


Vcoder   (2005-09-16 08:30:00) [17]

Только вручную - при добавлении каждого номера смотреть, не добавлял ли уже такой же.


FFF   (2005-09-16 08:01:00) [18]


> GanibalLector ©   (16.09.05 01:16) [5]


Спасибо большое, только вот один нюанс, как убрать из списка повторяющиеся номера?


Германн   (2005-09-16 02:41:00) [19]

2 FFF   (16.09.05 01:01) [4]
Не знаю почему сей топик не переместили в "Начинающие" :(

> Мне нужно по подробнее объяснить ответ №1, и почему AsString, у меня AsFloat!
Для чего у тебя AsFloat?
Для чего в [1] AsString?

Читай хэлп по AsFloat, AsString.
Если что не поймешь, милости просим на наш форум! Но с конкретным вопросом!


GanibalLector   (2005-09-16 01:16:00) [20]

2 FFF

>У меня не SQL база
Смешно.

>Мне нужно по подробнее объяснить ответ №1

while not Table1.Eof  do
 begin
   Combobox1.Items.Add(FloatToStr(Table1.FieldByName('Number').AsFloat));
   Table1.Next;
 end;

но это от Лукавого.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо