Добавление в таблицу

← →
webpauk © (2007-11-14 12:37) [0]

1. какого типа должно быть поле таблицы, чтобы туда занести информацию типа TFieldType
2. как сохранить
TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord, ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime, ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString, ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);
в таблицу

← →
Reindeer Moss Eater © (2007-11-14 12:38) [1]

Целочисленное

← →
Reindeer Moss Eater © (2007-11-14 12:39) [2]

заносить через Ord

← →
palva © (2007-11-14 12:40) [3]

1. Целым
2. Тип нельзя сохранить. Можно сохранить значение. Преобразовать в целое, потом сохранить.

← →
Palladin © (2007-11-14 12:42) [4]

1. shortint достаточно
2.

Var
f:TFieldType;

q.sql.text:="insert into t1 values (:pft)";
q.Parameters[0].Value:=Byte(f);
q.ExecSQL;

q.sql.text:="select ft from t1";
q.open;
f:=TFieldType(q.Fields[0].AsInteger);
q.Close;

← →
webpauk © (2007-11-14 12:43) [5]

TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,
ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob,
ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd);

а как вот эту кучу пройти через цикл.
отдельно добавлять каждое значение - в лом

← →
webpauk © (2007-11-14 12:44) [6]

> Palladin © (14.11.07 12:42) [4]

достат кол!

← →
webpauk © (2007-11-14 12:44) [7]

> Reindeer Moss Eater ©

спсб

← →
Reindeer Moss Eater © (2007-11-14 12:44) [8]

С дерева что ли упал?

← →
Reindeer Moss Eater © (2007-11-14 12:46) [9]

у перечислимого типа есть младшее значение и старшее. Оба доступны.

← →
webpauk © (2007-11-14 12:47) [10]

через какие функции получить младшее значение и старшее

← →
Reindeer Moss Eater © (2007-11-14 12:49) [11]

Лоу и Хай

← →
webpauk © (2007-11-14 12:51) [12]

for fI := Low(TFieldType) to High(TFieldType) do
Incompatible types: "Integer" and "TFieldType"

← →
Palladin © (2007-11-14 12:52) [13]

врешь, не ту строчку указал

← →
Palladin © (2007-11-14 12:53) [14]

> webpauk © (14.11.07 12:44) [6]

что значит достать кол? как неприлично, тут ведь и девушки читают

← →
Reindeer Moss Eater © (2007-11-14 12:55) [15]

Low(TFieldType) возвращает значение типа TFieldType
И хай тоже.

← →
webpauk © (2007-11-14 12:55) [16]

> Palladin © (14.11.07 12:53) [14]

цитата...
http://www.yandex.ru/yandsearch?text=%E4%EE%F1%F2%E0%F2+%EA%EE%EB&rpt=rad&lr=187

← →
webpauk © (2007-11-14 12:57) [17]

> Reindeer Moss Eater © (14.11.07 12:55) [15]

ну тагда как?
циклом пройтись по set-у?

← →
Reindeer Moss Eater © (2007-11-14 12:57) [18]

Уже было сказано как.

Переменная цикла это не обязательно Integer.

циклом пройтись по set-у?

Особенно если никакого сета нету. У тебя его нету.

var f: TFieldType; begin for f := Low(TFieldType) to High(TFieldType) do begin end;

ааа....

маладец у тебя получилось.

возможно ли ftUnknown преобразовать в вид "ftUnknown" (String)

GetEnumName

ГетЕнумНэйм

> какого типа должно быть поле таблицы

А что здесь пjнимается под таблицей и её полями?

Добавление в таблицу Найти похожие ветки