Tfielddefs.assign handle fielddefs starting at index 1, it should
start at index 0
_________________________________________________________
Do You Yahoo!?
La mejor conexión a internet y 25MB extra a tu correo por $100 al mes.
http://net.yahoo.com.mx
Index: fields.inc
===================================================================
RCS file: /FPC/CVS/fpc/fcl/db/fields.inc,v
retrieving revision 1.15
diff -c -r1.15 fields.inc
*** fields.inc 21 Aug 2004 21:10:00 -0000 1.15
--- fields.inc 30 Nov 2004 19:12:52 -0000
***************
*** 170,176 ****
begin
Clear;
! For i:=1 to FieldDefs.Count-1 do
With FieldDefs[i] do
Add(Name,DataType,Size,Required);
end;
--- 170,176 ----
begin
Clear;
! For i:=0 to FieldDefs.Count-1 do
With FieldDefs[i] do
Add(Name,DataType,Size,Required);
end;
_______________________________________________
fpc-devel maillist - [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
