Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.20;
Скачать: CL | DM;

Вниз

Структура dbf файла   Найти похожие ветки 

 
Arrows   (2005-01-25 09:24) [0]

Здравствуйте. Не подскажите как в Delphi определить размерность чилового поля - FLoat уже существующей базы данных DbaseIV?


 
Reindeer Moss Eater ©   (2005-01-25 09:40) [1]

Её не надо определять. Она фиксирована.


 
Arrows   (2005-01-25 09:48) [2]

Фиксированная, но нужно узнать в проге какой размер имеет данное числовое поле, его формат.


 
Johnmen ©   (2005-01-25 09:52) [3]

TField.DataType
А зачем это надо ?


 
Arrows   (2005-01-25 10:07) [4]

Johnmen
TField.DataType-
А зачем это надо ?

Размерность поля - Пример Num : 15.2
Надо для преобразования любой базы DBaseIV в другой формат. Размерность.


 
Reindeer Moss Eater ©   (2005-01-25 10:38) [5]

У флоат полей нет никакой размерности. Это плавающая точка.
А размер в байтах фиксирован.
Поэтому Size и Precision вернут нули.


 
Arrows   (2005-01-25 11:01) [6]

Reindeer Moss Eater
У флоат полей нет никакой размерности. Это плавающая точка

Тогда как прочитать точную структуру dbf-файла?


 
Reindeer Moss Eater ©   (2005-01-25 11:05) [7]

Класс TFieldDefs.
Метод Update.
Свойство TFieldDef


 
Arrows   (2005-01-25 11:27) [8]

Непонял!?
Как получить точную структуру dbf в тексте программы?


 
Reindeer Moss Eater ©   (2005-01-25 11:34) [9]

with TQuery.Create(nil) do
try
 DatabaseName := ....
 SQL.Text:= select * from tablename";
 FieldDefs.Update;
 for i:=0 to Pred(FieldDefs.Count) do
  begin
   MyFieldDef := FieldDefs.Items[i];
   if MyFieldDef.DataType = ftString then ShowMessage(...)
    else ...
   ...
   ...
  end;
finally
 Free;
end;


 
Arrows   (2005-01-25 11:47) [10]

Пишу:
k - размерность поля
For i:=0 to dbf1.FieldCount-1 do
begin
If (Form1.dbf1.Fields[i].DataType = ftString)then
 k:=Dbf1.Fields[i].Size;
If (Form1.dbf1.Fields[i].DataType = ftFloat)or  (Form1.dbf1.Fields [i].DataType = ftInteger)then  
 k:= ...?????  
end;


 
Reindeer Moss Eater ©   (2005-01-25 11:49) [11]

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


 
Reindeer Moss Eater ©   (2005-01-25 11:50) [12]

и ftInteger - то же.


 
HSolo ©   (2005-01-25 12:06) [13]

Если работаете ч/з BDE, то DbiGetFieldDescs


 
Arrows   (2005-01-25 13:01) [14]

Спасибо всем за дискуссию. Разобрался.
Если кому интересно: Все данные есть в шапке dbf отуда и надо брать данные.


 
Arrows   (2005-01-25 13:02) [15]

Спасибо всем за дискуссию. Разобрался.
Если кому интересно: Все данные есть в шапке dbf отуда и надо брать данные.



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

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

Наверх




Память: 0.47 MB
Время: 0.052 c
3-1106558657
kasper111
2005-01-24 12:24
2005.02.20
подскажите синтаксис командый update в delphi4


4-1105009997
Davinchi
2005-01-06 14:13
2005.02.20
Сркытие программы из Alt+Tab и панели задач


1-1107870852
Sergo
2005-02-08 16:54
2005.02.20
Создание Dll


9-1099337514
Colt1978
2004-11-01 22:31
2005.02.20
Задание пути объекту.... (GLScene)


1-1107427508
Артем К.
2005-02-03 13:45
2005.02.20
ПРОБЛЕМА. Делаю компонент PageControl (наследник TCustomControl)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский