paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 20:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removing a temporary workaround in the db testsuite and a minor cleanup

Browse Source 
git-svn-id: trunk@19305 -
This commit is contained in:
marco 2011-09-30 15:59:42 +00:00
parent c1814c4328
commit e36183cbc8
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/base/fields.inc
View File

@ -1069,10 +1069,7 @@ end;
function TStringField.GetDataSize: Integer; function TStringField.GetDataSize: Integer;
begin begin
if DataType=ftFixedChar then Result:=Size+1;
Result:=Size+1
else
Result:=Size+1;
end; end;
function TStringField.GetDefaultWidth: Longint; function TStringField.GetDefaultWidth: Longint;

2
packages/fcl-db/tests/testdbbasics.pas
View File

@ -2005,7 +2005,7 @@ var i : byte;
Fld : TField; Fld : TField;
begin begin
TestfieldDefinition(ftFixedChar,10,ds,Fld); TestfieldDefinition(ftFixedChar,11,ds,Fld);
for i := 0 to testValuesCount-1 do for i := 0 to testValuesCount-1 do
begin begin
if Fld.IsNull then // If the field is null, .AsString always returns an empty, non-padded string if Fld.IsNull then // If the field is null, .AsString always returns an empty, non-padded string