paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-29 09:47:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Added declarations for WideString utility functions

Browse Source
This commit is contained in:
sg 2000-08-08 22:11:45 +00:00
parent 43f82ba0ff
commit 6fcf8dcda3
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/systemh.inc
View File

@ -292,6 +292,19 @@ Procedure Delete (Var S : AnsiString; Index,Size: Longint);
Function StringOfChar(c : char;l : longint) : AnsiString; Function StringOfChar(c : char;l : longint) : AnsiString;
{****************************************************************************
WideString Handling
****************************************************************************}
Procedure SetLength (Var S : WideString; l : Longint);
Procedure UniqueString (Var S : WideString);
Function Length (Const S : WideString) : Longint;
Function Copy (Const S : WideString; Index,Size : Longint) : WideString;
Function Pos (Const Substr : WideString; Const Source : WideString) : Longint;
Procedure Insert (Const Source : WideString; Var S : WideString; Index : Longint);
Procedure Delete (Var S : WideString; Index,Size: Longint);
{**************************************************************************** {****************************************************************************
Untyped File Management Untyped File Management
****************************************************************************} ****************************************************************************}
@ -443,7 +456,10 @@ const
{ {
$Log$ $Log$
Revision 1.3 2000-07-14 10:33:10 michael Revision 1.4 2000-08-08 22:11:45 sg
* Added declarations for WideString utility functions
Revision 1.3 2000/07/14 10:33:10 michael
+ Conditionals fixed + Conditionals fixed
Revision 1.2 2000/07/13 11:33:45 michael Revision 1.2 2000/07/13 11:33:45 michael