Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> преобразование типов, нужно сделать несколько пробразований 
:(
    Опции темы
Vardoulacha
Дата 11.11.2007, 10:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 11.8.2005

Репутация: нет
Всего: 8



вообщем такая ситуация.... пишу небольшую программку для создания таблиц Paradox

для добавления нового поля используется такая функция
Table.FieldDefs.Add('Date', ftDate, 0, True);
где параметры
первый = String;
второй = TFieldType;
третий = Word;
четвертый = Boolean;

и вот... пользователь заполняет поля ввода выбирает нужный тип, указывает размер, вообщем выполняет обычные действия

далее программа получает эти данные в формате String
а вот как теперь эти данные в формате string преобразовать каждый параметр из string в нужный формат.... чтобы выполнить функцию Add

Добавлено через 5 минут и 11 секунд
ну с типами Word и Bool в принципе все понятно
StrToBool() и StrToInt()

а вот как строку преобразовать в TFieldType это вот проблема которую я никак решить не могу
PM MAIL   Вверх
VICTAR
Дата 11.11.2007, 11:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80



Код

Table.FieldByName('Date').AsDateTime := Date;

PM MAIL   Вверх
Vardoulacha
Дата 11.11.2007, 11:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 11.8.2005

Репутация: нет
Всего: 8



Цитата(VICTAR @  11.11.2007,  11:14 Найти цитируемый пост)
Table.FieldByName('Date').AsDateTime := Date;

что это было? smile

во-первых поле еще не создано чтобы к нему обращаться.... мне как раз и нужно сначала создать таблицу.... обращаться к ней это уже другая задача
во-вторых поле может иметь и другой тип поля
PM MAIL   Вверх
VICTAR
Дата 11.11.2007, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80



Хорошо
Цитата(Vardoulacha @  11.11.2007,  10:37 Найти цитируемый пост)
а вот как строку преобразовать в TFieldType это вот проблема которую я никак решить не могу 

В строке что находится?
PM MAIL   Вверх
VICTAR
Дата 11.11.2007, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80



Вообще, лучше заполни ComboBox (выбор наверное реализован через него) значениями TFieldType по порядку (ftUnknown, ftString, ftSmallint и т.д.)
Код

var aType: TFieldType;
...
procedure TForm1.cbx1Change(Sender: TObject);
begin
  aType := TFieldType(cbx1.ItemIndex);
end;


Это сообщение отредактировал(а) VICTAR - 11.11.2007, 12:07
PM MAIL   Вверх
Vardoulacha
Дата 11.11.2007, 14:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 11.8.2005

Репутация: нет
Всего: 8



в строке находится допустим такое значение ftString и данное значение строковое String

а вот это попробую, как время будет
var aType: TFieldType;
...
procedure TForm1.cbx1Change(Sender: TObject);
begin
  aType := TFieldType(cbx1.ItemIndex);
end;


вообщем-то в кратце мой алгоритм сводится к тому что сначала заполняется массив с данными полей а затем только эти поля добавляются в таблицу и создается файл с таблицей

сейчас подумал что наверное я это зря придумал и попробую реализовать немного по другому
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 1.1458 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.