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

Reverts TInputLine.GetData changes

Browse Source
This commit is contained in:
kagamma 2024-12-30 06:46:29 +00:00
parent c8958f3ab7
commit ef4a94541e
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1626,21 +1626,20 @@ END;
{---------------------------------------------------------------------------}
PROCEDURE TInputLine.GetData (Var Rec);
BEGIN
{$ifdef FV_UNICODE}
{ 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 Sw_PString_DeRef,
@Rec, vtGetData) = 0) Then
Sw_String(Rec) := Data;
{$else FV_UNICODE}
If Data <> Sw_PString_Empty Then Begin { Data ptr valid }
If (Validator = Nil) OR (Validator^.Transfer(Data Sw_PString_DeRef,
@Rec, vtGetData) = 0) Then Begin { No validator/data }
{$ifdef FV_UNICODE}
Sw_String(Rec):=Data;
{$else FV_UNICODE}
FillChar(Rec, DataSize, #0); { Clear the data area }
Move(Data^, Rec, Length(Data^) + 1); { Transfer our data }
{$endif FV_UNICODE}
End;
End Else
{$ifdef FV_UNICODE}
Sw_String(Rec):='';
{$else FV_UNICODE}
FillChar(Rec, DataSize, #0); { Clear the data area }
{$endif FV_UNICODE}
END;