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

* Use BytesOf instead of custom function

Browse Source 
git-svn-id: trunk@39333 -
This commit is contained in:
michael 2018-06-28 15:52:26 +00:00
parent 33056c1858
commit c0535b9a6f
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-db/tests/testfieldtypes.pas
View File

@ -135,19 +135,11 @@ type
procedure TestStringsReplace;
end;
Function ToTBytes( S : AnsiString) : TBytes;
implementation
uses sqldbtoolsunit,toolsunit, variants, sqldb, bufdataset, strutils, dbconst, FmtBCD;
Function ToTBytes( S : AnsiString) : TBytes;
begin
SetLength(Result,Length(S));
if length(Result)>0 then
Move(S[1],Result[0],Length(Result));
end;
Type HackedDataset = class(TDataset);
@ -1629,7 +1621,7 @@ begin
Params.ParamByName('field1').AsDate := StrToDate(testDateValues[i],'yyyy/mm/dd','-');
ftDateTime: Params.ParamByName('field1').AsDateTime := StrToDateTime(testValues[ADataType,i], DBConnector.FormatSettings);
ftFMTBcd : Params.ParamByName('field1').AsFMTBCD := StrToBCD(ParamValues[i], DBConnector.FormatSettings);
ftBlob : Params.ParamByName('field1').AsBlob := ToTBytes(testBlobValues[i]);
ftBlob : Params.ParamByName('field1').AsBlob := BytesOf(testBlobValues[i]);
ftBytes : if cross then
Params.ParamByName('field1').Value := StringToByteArray(testBytesValues[i])
else
@ -1700,7 +1692,7 @@ begin
begin
case asWhat of
0: Params.ParamByName('blobParam').AsMemo := TestBlobValues[i];
1: Params.ParamByName('blobParam').AsBlob := ToTBytes(TestBlobValues[i]);
1: Params.ParamByName('blobParam').AsBlob := BytesOf(TestBlobValues[i]);
2: Params.ParamByName('blobParam').AsString := TestBlobValues[i];
end;
ExecSQL;