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

* Fixed bug #8477

Browse Source 
git-svn-id: trunk@6801 -
This commit is contained in:
joost 2007-03-12 09:41:43 +00:00
parent 8ec185eb10
commit 5f0bd73dec
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-db/src/fields.inc
View File

@ -1052,20 +1052,26 @@ end;
procedure TStringField.SetAsString(const AValue: string);
Const NullByte : char = #0;
var Buf : TStringFieldBuffer;
begin
IF Length(AValue)=0 then
SetData(@NullByte)
begin
Buf := #0;
SetData(@buf);
end
else if FTransliterate then
begin
DataSet.Translate(@AValue[1],Buf,True);
SetData(@buf);
end
else
SetData(@AValue[1]);
begin
// The data is copied into the buffer, since some TDataset descendents copy
// the whole buffer-length in SetData. (See bug 8477)
Buf := AValue;
SetData(@Buf);
end;
end;
procedure TStringField.SetVarValue(const AValue: Variant);