Текущий архив: 2006.07.30;
Скачать: CL | DM;

Вниз

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

← →
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

---

← →
infom ©   (2006-07-12 13:53) [6]

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

---

← →
Плохиш ©   (2006-07-12 14:03) [7]

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.07.30;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.029 c