[RASMUSA]

Прошу прощения за беспокойство, но никак не могу найти функции работы с dbf. Требуется из qwery создать файл и перенести туда qwery, чтобы потом открыть этот файл в 1С. Когда использую метод insert все пишется почему то, в первую ячейку! кто работал с dbf подскажите!

Вот иходник:

Код:

tWast:=TTable.Create(nil);
tWast.TableType:=ttDBase;
tWast.TableName:='DIMON.DBF';

tWast.FieldDefs.Add('DATE',ftString,50,FALSE);
tWast.FieldDefs.Add('MASSA',ftstring,50,FALSE);
tWast.FieldDefs.Add('NOM',ftString,50,FALSE);

tWast.CreateTable;
tWast.Active := true;

for i:=1 to 3 do 
 begin
 tWast.Insert;
 twast.FieldByName('DATE').AsString:='3';
 twast.FieldByName('MASSA').AsString:='2';
 twast.FieldByName('NOM').AsString:='1';
 tWast.Post;

end;
tWast.Free;

Admin: Теги и еще раз теги!