paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-13 14:29:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Assume memo fields are sent as strings, not as bytes.

Browse Source
This commit is contained in:
michael 2019-09-26 12:54:11 +00:00
parent abd08459c4
commit 980c23aa15
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/fcl-db/db.pas
View File

@ -6953,11 +6953,14 @@ begin
Result := '';
V:=GetData;
if V<>Null then
begin
S:=BlobToBytes(V);
For I:=0 to Length(S)-1 do
Result:=TJSString(Result).Concat(TJSString.fromCharCode(S[I]));
end;
if (DataType=ftMemo) then
Result:=String(V)
else
begin
S:=BlobToBytes(V);
For I:=0 to Length(S)-1 do
Result:=TJSString(Result).Concat(TJSString.fromCharCode(S[I]));
end;
end;
@ -6989,10 +6992,15 @@ var
i : Integer;
begin
SetLength(B, Length(aValue));
For I:=1 to Length(aValue) do
B[i-1]:=Ord(aValue[i]);
SetAsBytes(B);
if DataType=ftMemo then
SetData(aValue)
else
begin
SetLength(B, Length(aValue));
For I:=1 to Length(aValue) do
B[i-1]:=Ord(aValue[i]);
SetAsBytes(B);
end;
end;