pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TParadoxDataset: Show InputEncoding in Object Inspector only when dataset is active.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6906 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-10 23:07:59 +00:00
parent 36c17ca7ed
commit 9675c3955d
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tparadoxdataset/paradoxds.pas
View File

@ -552,6 +552,7 @@ end;
procedure TParadoxDataset.InternalClose; procedure TParadoxDataset.InternalClose;
begin begin
FInputEncoding := '';
BindFields(FALSE); BindFields(FALSE);
if DefaultFields then // Destroy the TField if DefaultFields then // Destroy the TField
DestroyFields; DestroyFields;
@ -678,7 +679,7 @@ begin
else begin else begin
FFieldInfoPtr := @FHeader^.FieldInfo; FFieldInfoPtr := @FHeader^.FieldInfo;
cp := FHeader^.DosCodePage; cp := FHeader^.DosCodePage;
FInputEncoding := 'cp' + IntToStr(cp); FInputEncoding := 'CP' + IntToStr(cp);
end; end;
if Encrypted then if Encrypted then