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

Minor correction

Browse Source
This commit is contained in:
kagamma 2024-01-31 06:21:00 +00:00
parent c2111cab51
commit c8958f3ab7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fv/src/dialogs.inc
View File

@ -1630,8 +1630,8 @@ BEGIN
{ We do not check for Data <> Sw_PString_Empty
in the Unicode version, or else this function
will always fail to get the data }
if (Validator = Nil) OR (Validator^.Transfer(
Data, @Rec, vtSetData) = 0) Then
If (Validator = Nil) OR (Validator^.Transfer(Data Sw_PString_DeRef,
@Rec, vtGetData) = 0) Then
Sw_String(Rec) := Data;
{$else FV_UNICODE}
If Data <> Sw_PString_Empty Then Begin { Data ptr valid }