Сократить данную конструкцию.

← →
infom © (2006-07-11 16:30) [0]

Уважаемые мастер возможно ли сократить данную конструкцию
case Query.Fields.Fields[i].DataType of ftString : s := "[String]"; ftSmallint : s := "[Smallint]"; ftInteger : s := "[Integer]"; ftWord : s := "[Word]"; ftBoolean : s := "[Boolean]"; ftFloat : s := "[Float]"; . . . . . . . end

← →
Плохиш © (2006-07-11 16:32) [1]

> infom © (11.07.06 16:30)
> Уважаемые мастер

Хм, это как?

> возможно ли сократить данную конструкцию

а смысл?

← →
infom © (2006-07-11 16:43) [2]

> Хм, это как?

Уважаемые мастера.

> а смысл?

Сократить размер кода. Тем более мне внутренний голос подсказывает что можно сократить например в такую

s := "["+String(Query.Fields.Fields[i].DataType)+"]"

Выше написанное только как пример.

← →
begin...end © (2006-07-11 16:48) [3]

s := Format("[%s]", [GetEnumName(TypeInfo(TFieldType), Ord(Query.Fields.Fields[i].DataType))])

?

← →
begin...end © (2006-07-11 16:50) [4]

К [3] -- uses TypInfo, ессно.

← →
Плохиш © (2006-07-11 16:53) [5]

FieldTypeNames

2 begin...end Большое спасибо.

Массив FieldTypeNames стало быть не подошёл? :-)

Сократить данную конструкцию. Найти похожие ветки