paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

TParadoxDataset: Activate InputEncoding property for writing.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9649 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-02-26 14:17:43 +00:00
parent 5095b475b2
commit 125e6e11ca
1 changed files with 3 additions and 2 deletions

5
components/tparadoxdataset/paradoxds.pas
View File

@ -225,7 +225,7 @@ type
published
property TableName: TFileName read FFileName write SetFileName;
property TableLevel: String read GetVersion;
property InputEncoding: String read FInputEncoding;
property InputEncoding: String read FInputEncoding write FInputEncoding;
property TargetEncoding: String read FTargetEncoding write SetTargetEncoding stored IsStoredTargetEncoding;
property Active;
property AutoCalcFields;
@ -736,7 +736,8 @@ begin
else begin
FFieldInfoPtr := @FHeader^.FieldInfo;
cp := FHeader^.DosCodePage;
FInputEncoding := 'CP' + IntToStr(cp);
if FInputEncoding = '' then
FInputEncoding := 'CP' + IntToStr(cp);
end;
if Encrypted then