Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как вынуть из таблицы наименования полей? [D7, 95/98]

fast2 © (2005-12-09 16:58:00)
... и запихуть в комбобокс?

sniknik (2005-12-10 13:46:00) [1]
:) люблю этим заниматься, когда находится с кем, хотя и считаю себя программистом... но вот использовать для этого таблицы и комбобокс... както в голову не приходило. (а вот сейчас думаю и не понимаю КАК?) ;о))

SergP (2005-12-10 11:23:00) [2]

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

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

Alarm (2005-12-09 20:45:00) [3]
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

Anatoly Podgoretsky (2005-12-09 20:29:00) [4]
fast2 (09.12.05 17:23) [7]
Ну до начинающего тебе еще далеко.

Digitman (2005-12-09 17:28:00) [5]

> Sandman29 © (09.12.05 17:26) [8]
> Как узнать названия полей TTable(например) и

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

Sandman29 (2005-12-09 17:26:00) [6]
Как узнать названия полей TTable(например) и поместить их список в комбобокс.

Digitman (2005-12-09 17:26:00) [7]

> fast2 (09.12.05 17:23) [7]

а что, собственно, нужно сделать ?

начни хотя бы с подробного описания того, что тобой подразумевается под "таблицей" ..

с комбобоксом вроде бы более-менее опнятно (телепатор позволяет) - объекты класса TComboBox имеют для "пихания" разного рода Add-методы

Sandman29 (2005-12-09 17:23:00) [8]
Digitman © (09.12.05 17:20) [5]

только не запихнуть, а запихуть :)

fast2 (2005-12-09 17:23:00) [9]
<"вынуть" и "запихнуть" - занятие не для программистов ... и даже не для начинающих>
А как надо было сказать правильно?

alex_*** (2005-12-09 17:20:00) [10]
делаешь SELECT TOP 1 * FROM xxx и разбираешь полученные поля

Digitman (2005-12-09 17:20:00) [11]

> Sandman29 © (09.12.05 17:16) [3]

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

Sandman29 (2005-12-09 17:16:00) [12]
профессионалам отдельная просьба - быть снисходительными.

Digitman (2005-12-09 17:05:00) [13]
известно как ...
лопатой !

Tonich (2005-12-09 17:02:00) [14]
А шо за таблица?

ну вот из квери, из таблици аналогично можно

for ii := 0 to Query.FieldCount -1 do ... := Query.Fields[ii].FieldName;

Наверх

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