Как вынуть из таблицы наименования полей?

← →
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(например) и

малацца.
за телепатор тебе - пять баллов.

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

> "вынуть" и "запихнуть" - занятие не для программистов ..

Ух ты...Даже и не знал...

:) люблю этим заниматься, когда находится с кем, хотя и считаю себя программистом... но вот использовать для этого таблицы и комбобокс... както в голову не приходило. (а вот сейчас думаю и не понимаю КАК?) ;о))

Как вынуть из таблицы наименования полей? Найти похожие ветки