paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added support for ftDateTime fields

Browse Source 
* RecNo should return 0 if the dataset is closed, not 1

git-svn-id: trunk@6084 -
This commit is contained in:
joost 2007-01-19 22:42:19 +00:00
parent 5f1f8936e5
commit 3594230958
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fcl/db/memds/memds.pp
View File

@ -284,6 +284,7 @@ begin
ftInteger: result:=SizeOf(Integer); ftInteger: result:=SizeOf(Integer);
ftDate: result:=SizeOf(TDateTime); ftDate: result:=SizeOf(TDateTime);
ftTime: result:=SizeOf(TDateTime); ftTime: result:=SizeOf(TDateTime);
ftDateTime: result:=SizeOf(TDateTime);
else else
RaiseError(SErrFieldTypeNotSupported,[FieldDefs.Items[FieldNo-1].Name]); RaiseError(SErrFieldTypeNotSupported,[FieldDefs.Items[FieldNo-1].Name]);
end; end;
@ -853,7 +854,7 @@ Function TMemDataset.GetRecNo: Longint;
begin begin
UpdateCursorPos; UpdateCursorPos;
if (FCurrRecNo<0) then if (FCurrRecNo<0) then
Result:=1 Result:=0
else else
Result:=FCurrRecNo+1; Result:=FCurrRecNo+1;
end; end;