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

* twidestringfield.setfieldtype, mantis 18663, patch by Ladislav

Browse Source 
git-svn-id: trunk@16871 -
This commit is contained in:
marco 2011-02-03 08:08:47 +00:00
parent 71cce9716d
commit aad696166d
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-db/src/base/db.pas
View File

@ -499,6 +499,7 @@ type
function GetDataSize: Integer; override; function GetDataSize: Integer; override;
public public
constructor Create(aOwner: TComponent); override; constructor Create(aOwner: TComponent); override;
procedure SetFieldType(AValue: TFieldType); override;
property Value: WideString read GetAsWideString write SetAsWideString; property Value: WideString read GetAsWideString write SetAsWideString;
end; end;

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

@ -1205,6 +1205,12 @@ begin
SetDataType(ftWideString); SetDataType(ftWideString);
end; end;
procedure TWideStringField.SetFieldType(AValue: TFieldType);
begin
if avalue in [ftWideString, ftFixedWideChar] then
SetDataType(AValue);
end;
function TWideStringField.GetValue(var aValue: WideString): Boolean; function TWideStringField.GetValue(var aValue: WideString): Boolean;
var var
FixBuffer : array[0..dsMaxStringSize div 2] of WideChar; FixBuffer : array[0..dsMaxStringSize div 2] of WideChar;