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

+ unicode fixes

Browse Source 
git-svn-id: branches/unicodekvm@48637 -
This commit is contained in:
nickysn 2021-02-10 21:54:37 +00:00
parent 5d3d64b340
commit c466caa0c8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2788,13 +2788,13 @@ END;
{--TListBox-----------------------------------------------------------------}
{ GetText -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Jun98 LdB }
{---------------------------------------------------------------------------}
FUNCTION TListBox.GetText (Item: Sw_Integer; MaxLen: Sw_Integer): String;
VAR P: PString;
FUNCTION TListBox.GetText (Item: Sw_Integer; MaxLen: Sw_Integer): Sw_String;
VAR P: Sw_PString;
BEGIN
GetText := ''; { Preset return }
If (List <> Nil) Then Begin { A list exists }
P := PString(List^.At(Item)); { Get string ptr }
If (P <> Nil) Then GetText := P^; { Return string }
P := Sw_PString(List^.At(Item)); { Get string ptr }
If (P <> Sw_PString_Empty) Then GetText := P Sw_PString_DeRef; { Return string }
End;
END;