Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.03.2012, 00:16
Nautilus Nautilus вне форума
Новичок
 
Регистрация: 07.02.2012
Сообщения: 53
Репутация: 10
По умолчанию Неверный тип записи или смещение

Добрый вечер! После "закладки" данных в поля таблицы dbf- не могу ее открыть- пишет "Неверный тип записи или смещение". Где в коде ошибка, не подскажите (компонент Tdbf)

Код:
procedure TForm1.FormShow(Sender: TObject);
var
tt,real:   TFLDType ;

begin

  tt:=bfDate;
  real:=bfFloat;
 form1.DBF1.TableName:='Arh .dbf';
 form1.DBF1.AddFieldDefs('time', tt, 8, 0);
 form1.DBF1.AddFieldDefs('Tiv', real, 8, 2);
 form1.DBF1.AddFieldDefs('Piv', real, 8, 2);
 form1.DBF1.AddFieldDefs('PHiv',real, 8, 2);
 form1.DBF1.AddFieldDefs('ORPiv',real, 8, 2);
 form1.DBF1.AddFieldDefs('Miv',real, 8, 2);
 form1.DBF1.AddFieldDefs('Qiv',real, 8, 2);
 form1.DBF1.CreateTable;
 form1.DBF1.Close;

end;

А вот "накладываю" данные
Код:
procedure TForm1.Timer3Timer(Sender: TObject);
var
l2: string;
 FromExcel1, FromExcel2,FromExcel3,FromExcel4: PChar;
begin

 l2:=  Form1.Label2.Caption;
 
 form1.DBF1.Open;
 form1.DBF1.SetFieldData(2,l2);
 form1.DBF1.Insert ;
 form1.DBF1.Close;

end;
Люди, где может быть собака зарыта?
Спасибо.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 21:07.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025