Показать сообщение отдельно
  #1  
Старый 28.03.2012, 13:20
Nautilus Nautilus вне форума
Новичок
 
Регистрация: 07.02.2012
Сообщения: 53
Репутация: 10
По умолчанию Компонент Tdbf - добавляются нули вместо данных

Добрый день, подскажите, почему в db файл (через Tdbf) ложатся "0", вместо данных. Вот код:

Код:
procedure TForm1.Timer3Timer(Sender: TObject);
var
    l2,l3: string;

begin
      l2:=  Form1.Label2.Caption;
      l3:=  Form1.Label3.Caption;
 
  form1.DBF1.Exclusive := True;
  form1.DBF1.Open;
  form1.DBF1.Append;
  form1.DBF1.SetFieldData(2,l2);
  form1.DBF1.Close;
end;

Вот описание метода
procedure SetFieldData(FieldNo: Integer; Data: String);

Описание:
В текущей записи замещает содержимое поля с номером FieldNo данными Data и устанавливает свойство Modified в True. Данные - это строка, полученная преобразованием данных соответствующего типа в текстовое представление. Логические значения должны представляться строками вида 'True', 'Yes', 'False' или 'No', в противном случае значение считается неопределенным. Дата - строка вида 'ДД.ММ.ГГ'.

Ребята, кто работал с Tdbf, отзовитесь.
Спасибо.
Ответить с цитированием