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

* Fix by Werner Pamler for issue #39436

Browse Source 
(cherry picked from commit 2052049e74)
This commit is contained in:
Michaël Van Canneyt 2021-11-11 19:18:37 +01:00 committed by marcoonthegit
parent 7af4034db3
commit b8ac68a657
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/src/base/bufdataset.pas
View File

@ -1575,6 +1575,7 @@ Var
N : String;
OriginalPosition: TBookMark;
S : TMemoryStream;
cp: TSystemCodePage;
begin
Close;
@ -1583,7 +1584,11 @@ begin
For I:=0 to Dataset.FieldCount-1 do
begin
F:=Dataset.Fields[I];
TFieldDef.Create(FieldDefs,F.FieldName,F.DataType,F.Size,F.Required,F.FieldNo);
if (F is TStringField) then
cp := TStringField(F).CodePage
else
cp := CP_ACP;
TFieldDef.Create(FieldDefs,F.FieldName,F.DataType,F.Size,F.Required,F.FieldNo,cp);
end;
CreateDataset;
L1:=Nil;