paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:30:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ use Sw_String in unit histlist/uhistlist to reduce the number of ifdefs

Browse Source 
git-svn-id: branches/unicodekvm@48603 -
This commit is contained in:
nickysn 2021-02-10 14:05:40 +00:00
parent 5dae243ffd
commit 2cfab10cb1
1 changed files with 4 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/fv/src/histlist.inc
View File

@ -121,11 +121,7 @@ FUNCTION HistoryCount (Id: Byte): Word;
Returns the Index'th string in the history list with ID number Id.
30Sep99 LdB
---------------------------------------------------------------------}
{$ifdef FV_UNICODE}
FUNCTION HistoryStr (Id: Byte; Index: Sw_Integer): UnicodeString;
{$else FV_UNICODE}
FUNCTION HistoryStr (Id: Byte; Index: Sw_Integer): String;
{$endif FV_UNICODE}
FUNCTION HistoryStr (Id: Byte; Index: Sw_Integer): Sw_String;
{-ClearHistory-------------------------------------------------------
Removes all strings from all history lists.
@ -137,11 +133,7 @@ PROCEDURE ClearHistory;
Adds the string Str to the history list indicated by Id.
30Sep99 LdB
---------------------------------------------------------------------}
{$ifdef FV_UNICODE}
PROCEDURE HistoryAdd (Id: Byte; Const Str: UnicodeString);
{$else FV_UNICODE}
PROCEDURE HistoryAdd (Id: Byte; Const Str: String);
{$endif FV_UNICODE}
PROCEDURE HistoryAdd (Id: Byte; Const Str: Sw_String);
function HistoryRemove(Id: Byte; Index: Sw_Integer): boolean;
@ -479,11 +471,7 @@ END;
{---------------------------------------------------------------------------}
{ HistoryStr -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 30Sep99 LdB }
{---------------------------------------------------------------------------}
{$ifdef FV_UNICODE}
FUNCTION HistoryStr(Id: Byte; Index: Sw_Integer): UnicodeString;
{$else FV_UNICODE}
FUNCTION HistoryStr(Id: Byte; Index: Sw_Integer): String;
{$endif FV_UNICODE}
FUNCTION HistoryStr(Id: Byte; Index: Sw_Integer): Sw_String;
VAR I: Sw_Integer;
{$ifdef FV_UNICODE}
TmpP: Pointer;
@ -521,11 +509,7 @@ END;
{---------------------------------------------------------------------------}
{ HistoryAdd -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 30Sep99 LdB }
{---------------------------------------------------------------------------}
{$ifdef FV_UNICODE}
PROCEDURE HistoryAdd (Id: Byte; Const Str: UnicodeString);
{$else FV_UNICODE}
PROCEDURE HistoryAdd (Id: Byte; Const Str: String);
{$endif FV_UNICODE}
PROCEDURE HistoryAdd (Id: Byte; Const Str: Sw_String);
{$ifdef FV_UNICODE}
VAR StrU8: UTF8String; TmpP: PByte; TmpLen: SizeUInt;
{$endif FV_UNICODE}