![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ComboBox+Table [D7, WinXP]
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;
но это от Лукавого.