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

+ Implemented missing StringReplace function

Browse Source
This commit is contained in:
michael 2001-09-20 14:42:34 +00:00
parent cb7a8cf1b6
commit f412e31618
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/sysstrh.inc
View File

@ -30,12 +30,15 @@ type
{ For FloatToText }
TFloatFormat = (ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency);
TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);
const
{ For floattodatetime }
MinDateTime: TDateTime = -657434.0; { 01/01/0100 12:00:00.000 AM }
MaxDateTime: TDateTime = 2958465.99999; { 12/31/9999 11:59:59.999 PM }
function NewStr(const S: string): PString;
procedure DisposeStr(S: PString);
procedure AssignStr(var P: PString; const S: string);
@ -93,8 +96,8 @@ Function CurrToStr(Value: Currency): string;
function StrToCurr(const S: string): Currency;
function StrToBool(const S: string): Boolean;
function BoolToStr(B: Boolean): string;
function LastDelimiter(const Delimiters, S: string): Integer;
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
{==============================================================================}
{ extra functions }
@ -106,15 +109,15 @@ function BCDToInt(Value: integer): integer;
{
$Log$
Revision 1.8 2001-09-20 14:39:43 michael
Revision 1.9 2001-09-20 14:42:34 michael
+ Implemented missing StringReplace function
Revision 1.7 2001/09/20 14:38:41 michael
Implemented missing StringReplace function
Revision 1.6 2000/12/09 10:39:50 florian
* fixed merging problem
Revision 1.1.2.3 2001/09/20 14:35:34 michael
Implemented missing StringReplace function
Revision 1.1.2.2 2000/12/07 21:48:58 michael
+ Added LastDelimiter function