ComboBox+Table

← →
FFF (2005-09-15 22:34) [0]

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

← →
Сайбель Алексей © (2005-09-15 22:42) [1]

ComboBox1.AddItem(...)

+

Table1.FieldByName("Number").AsString

← →
FFF (2005-09-16 00:27) [2]

Чё то я не понял, а можно по подробнее?

← →
GanibalLector © (2005-09-16 00:45) [3]

Form1.IbSQL1.Close; Form1.IBSQL1.SQL.Clear; Form1.IBSQL1.SQL.Add("select Number from таблица"); Form1.IBSQL1.ExecQuery; while not Form1.IbSQL1.Eof do begin Combobox1.Items.Add(Form1.IbSQL1.fieldbyname("Number").value); Form1.IbSQL1.Next; end;

З.Ы. По хорошему нужен еще with

← →
FFF (2005-09-16 01:01) [4]

У меня не SQL база, поэтому пример не подойдёт. Мне нужно по подробнее объяснить ответ №1, и почему AsString, у меня AsFloat!

← →
GanibalLector © (2005-09-16 01:16) [5]

2 FFF

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

>Мне нужно по подробнее объяснить ответ №1
while not Table1.Eof do begin Combobox1.Items.Add(FloatToStr(Table1.FieldByName("Number").AsFloat)); Table1.Next; end;
но это от Лукавого.

← →
Германн © (2005-09-16 02:41) [6]

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

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

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

← →
FFF (2005-09-16 08:01) [7]

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

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

← →
Vcoder © (2005-09-16 08:30) [8]

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

← →
ShiFT (2005-09-16 08:59) [9]

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;

← →
FFF (2005-09-16 16:06) [10]

> ShiFT (16.09.05 08:59) [9]

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

← →
Digitman © (2005-09-16 16:13) [11]

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

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

← →
erika © (2005-09-16 16:59) [12]

> 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;

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

← →
FFF (2005-09-16 20:24) [13]

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

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

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

← →
DesWind © (2005-09-16 20:36) [14]

> FFF (16.09.05 20:24) [13]

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

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

← →
Игорь Шевченко © (2005-09-16 20:40) [15]

FFF (16.09.05 20:24) [13]

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

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

← →
FFF (2005-09-16 21:50) [16]

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

← →
DesWind © (2005-09-16 21:58) [17]

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

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

через var ?

← →
FFF (2005-09-16 22:22) [19]

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

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

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

> FFF (16.09.05 22:22) [19]

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

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

string ?

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

ComboBox+Table Найти похожие ветки