paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:49:20 +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-----------------------------------------------------------------} {--TListBox-----------------------------------------------------------------}
{ GetText -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Jun98 LdB } { GetText -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Jun98 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
FUNCTION TListBox.GetText (Item: Sw_Integer; MaxLen: Sw_Integer): String; FUNCTION TListBox.GetText (Item: Sw_Integer; MaxLen: Sw_Integer): Sw_String;
VAR P: PString; VAR P: Sw_PString;
BEGIN BEGIN
GetText := ''; { Preset return } GetText := ''; { Preset return }
If (List <> Nil) Then Begin { A list exists } If (List <> Nil) Then Begin { A list exists }
P := PString(List^.At(Item)); { Get string ptr } P := Sw_PString(List^.At(Item)); { Get string ptr }
If (P <> Nil) Then GetText := P^; { Return string } If (P <> Sw_PString_Empty) Then GetText := P Sw_PString_DeRef; { Return string }
End; End;
END; END;