paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 01:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: tests: bufdataset: test ftVariant & ftVarbytes as issue #19930 is marked eesolve.d

Browse Source 
No regression in test suite.

git-svn-id: trunk@27996 -
This commit is contained in:
reiniero 2014-06-18 11:46:45 +00:00
parent 98f5e7cd57
commit b871247238
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/tests/bufdatasettoolsunit.pas
View File

@ -137,10 +137,12 @@ begin
FieldDefs.Add('FDATE',ftDate);
FieldDefs.Add('FTIME',ftTime);
FieldDefs.Add('FDATETIME',ftDateTime);
FieldDefs.Add('FVARBYTES',ftVarBytes,10);
FieldDefs.Add('FBLOB',ftBlob);
FieldDefs.Add('FMEMO',ftMemo);
FieldDefs.Add('FFIXEDCHAR',ftFixedChar,10);
FieldDefs.Add('FLARGEINT',ftLargeint);
FieldDefs.Add('FVARIANT',ftVariant);
FieldDefs.Add('FGUID',ftGuid,38);
FieldDefs.Add('FFMTBCD',ftFmtBCD);
FieldDefs.Add('FWIDESTRING',ftWideString,10);
@ -163,10 +165,12 @@ begin
FieldByName('FDATE').AsDateTime := StrToDateTime(testDateValues[i], Self.FormatSettings);
FieldByName('FTIME').AsDateTime := StrToTime(testTimeValues[i], Self.FormatSettings);
FieldByName('FDATETIME').AsDateTime := StrToDateTime(testValues[ftDateTime,i], Self.FormatSettings);
FieldByName('FVARBYTES').AsString := testStringValues[i];
FieldByName('FBLOB').AsString := testStringValues[i];
FieldByName('FMEMO').AsString := testStringValues[i];
FieldByName('FFIXEDCHAR').AsString := PadRight(testStringValues[i], 10);
FieldByName('FLARGEINT').AsLargeInt := testLargeIntValues[i];
FieldByName('FVARIANT').AsString := testStringValues[i];
FieldByName('FGUID').AsString := GuidToString(GUID_NULL);
FieldByName('FFMTBCD').AsBCD := StrToBCD(testFmtBCDValues[i], Self.FormatSettings);
FieldByName('FWIDESTRING').AsString := testStringValues[i];