paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 19:05:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* sqldb/dbase: explicit cast to pchar to avoid writing widestrings in dbf header. Fixes mantis #14473

Browse Source 
git-svn-id: trunk@24069 -
This commit is contained in:
reiniero 2013-03-30 11:43:41 +00:00
parent 5ee9fe75e9
commit c9161bc51d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/dbase/dbf_dbffile.pas
View File

@ -595,10 +595,10 @@ begin
RecordSize := SizeOf(rFieldDescVII); RecordSize := SizeOf(rFieldDescVII);
FillChar(Header^, HeaderSize, #0); FillChar(Header^, HeaderSize, #0);
PDbfHdr(Header)^.VerDBF := $04; PDbfHdr(Header)^.VerDBF := $04;
// write language string // write language string. FPC needs an explicit cast to pchar to avoid calling widestring version of StrPLCopy
StrPLCopy( StrPLCopy(
@PAfterHdrVII(PChar(Header)+SizeOf(rDbfHdr))^.LanguageDriverName[32], PChar(@PAfterHdrVII(PChar(Header)+SizeOf(rDbfHdr))^.LanguageDriverName[32]),
ConstructLangName(FFileCodePage, lLocaleID, false), PChar(ConstructLangName(FFileCodePage, lLocaleID, false)),
63-32); 63-32);
lFieldDescPtr := @lFieldDescVII; lFieldDescPtr := @lFieldDescVII;
end else begin end else begin