Форум: "Начинающим";
Текущий архив: 2005.12.25;
Скачать: [xml.tar.bz2];
ВнизКак вынуть из таблицы наименования полей? Найти похожие ветки
← →
fast2 (2005-12-09 16:58) [0]... и запихуть в комбобокс?
← →
Tonich © (2005-12-09 17:02) [1]А шо за таблица?
ну вот из квери, из таблици аналогично можноfor ii := 0 to Query.FieldCount -1 do
... := Query.Fields[ii].FieldName;
← →
Digitman © (2005-12-09 17:05) [2]известно как ...
лопатой !
← →
Sandman29 © (2005-12-09 17:16) [3]
профессионалам отдельная просьба - быть снисходительными.
← →
alex_*** © (2005-12-09 17:20) [4]делаешь SELECT TOP 1 * FROM xxx и разбираешь полученные поля
← →
Digitman © (2005-12-09 17:20) [5]
> Sandman29 © (09.12.05 17:16) [3]
"вынуть" и "запихнуть" - занятие не для программистов ... и даже не для начинающих
← →
Sandman29 © (2005-12-09 17:23) [6]Digitman © (09.12.05 17:20) [5]
только не запихнуть, а запихуть :)
← →
fast2 (2005-12-09 17:23) [7]<"вынуть" и "запихнуть" - занятие не для программистов ... и даже не для начинающих>
А как надо было сказать правильно?
← →
Sandman29 © (2005-12-09 17:26) [8]Как узнать названия полей TTable(например) и поместить их список в комбобокс.
← →
Digitman © (2005-12-09 17:26) [9]
> fast2 (09.12.05 17:23) [7]
а что, собственно, нужно сделать ?
начни хотя бы с подробного описания того, что тобой подразумевается под "таблицей" ..
с комбобоксом вроде бы более-менее опнятно (телепатор позволяет) - объекты класса TComboBox имеют для "пихания" разного рода Add-методы
← →
Digitman © (2005-12-09 17:28) [10]
> Sandman29 © (09.12.05 17:26) [8]
> Как узнать названия полей TTable(например) и
малацца.
за телепатор тебе - пять баллов.
← →
Anatoly Podgoretsky © (2005-12-09 20:29) [11]fast2 (09.12.05 17:23) [7]
Ну до начинающего тебе еще далеко.
← →
Alarm (2005-12-09 20:45) [12]procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
F: TFieldDef;
D: string;
begin
Table1.Active := True;
ComboBox1.Items.Clear;
with Table1 do
begin
for i := 0 to FieldDefs.Count - 1 do
begin
F := FieldDefs.Items[i];
case F.DataType of
ftUnknown: D := "Unknown";
ftString: D := "String";
ftSmallint: D := "SmallInt";
ftInteger: D := "Integer";
ftWord: D := "Word";
ftBoolean: D := "Boolean";
ftFloat: D := "Float";
ftCurrency: D := "Currency";
ftBCD: D := "BCD";
ftDate: D := "Date";
ftTime: D := "Time";
ftDateTime: D := "DateTime";
ftBytes: D := "Bytes";
ftVarBytes: D := "";
ftBlob: D := "BLOB";
ftMemo: D := "Memo";
ftGraphic: D := "Graphic";
else
D := "";
end;
ComboBox1.Items.Add(F.Name + ", " + D);
end;
end;
Table1.Active := False;
end;
(c) delphiworld.narod.ru
← →
SergP © (2005-12-10 11:23) [13]
> "вынуть" и "запихнуть" - занятие не для программистов ..
Ух ты...Даже и не знал...
← →
sniknik © (2005-12-10 13:46) [14]:) люблю этим заниматься, когда находится с кем, хотя и считаю себя программистом... но вот использовать для этого таблицы и комбобокс... както в голову не приходило. (а вот сейчас думаю и не понимаю КАК?) ;о))
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.12.25;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.012 c