pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

cleaunp code - remove deprecated functions from rxstrutils

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2624 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-01-15 04:12:21 +00:00
parent 91e9adb6c5
commit 72825b82d6
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/rx/rx.inc
View File

@ -47,6 +47,8 @@
{.DEFINE USE_TRXXPManifest} {.DEFINE USE_TRXXPManifest}
{.$DEFINE USE_TRxAppIcon} {.$DEFINE USE_TRxAppIcon}
{.$DEFINE USE_DEPRECATES}
// //
{.$DEFINE DBDateEdit_OLD} {.$DEFINE DBDateEdit_OLD}

5
components/rx/rxstrutils.pas
View File

@ -120,6 +120,7 @@ function CompText(const S1, S2: string): Integer;
{ CompText compares S1 to S2, without case-sensitivity. The return value { CompText compares S1 to S2, without case-sensitivity. The return value
is the same as for CompStr. } is the same as for CompStr. }
{$IFDEF USE_DEPRECATES}
function Copy2Symb(const S: string; Symb: Char): string; deprecated; //use this function from fcl strutils function Copy2Symb(const S: string; Symb: Char): string; deprecated; //use this function from fcl strutils
{ Copy2Symb returns a substring of a string S from begining to first { Copy2Symb returns a substring of a string S from begining to first
character Symb. } character Symb. }
@ -135,7 +136,7 @@ function Copy2Space(const S: string): string; deprecated; //use this function fr
function Copy2SpaceDel(var S: string): string; deprecated; //use this function from fcl strutils function Copy2SpaceDel(var S: string): string; deprecated; //use this function from fcl strutils
{ Copy2SpaceDel returns a substring of a string S from begining to first { Copy2SpaceDel returns a substring of a string S from begining to first
white space and removes this substring from S. } white space and removes this substring from S. }
{$ENDIF}
function AnsiProperCase(const S: string; const WordDelims: TCharSet): string; deprecated; //use this function from fcl strutils function AnsiProperCase(const S: string; const WordDelims: TCharSet): string; deprecated; //use this function from fcl strutils
{ Returns string, with the first letter of each word in uppercase, { Returns string, with the first letter of each word in uppercase,
all other letters in lowercase. Words are delimited by WordDelims. } all other letters in lowercase. Words are delimited by WordDelims. }
@ -447,6 +448,7 @@ begin
{$ENDIF} {$ENDIF}
end; end;
{$IFDEF USE_DEPRECATES}
function Copy2Symb(const S: string; Symb: Char): string; function Copy2Symb(const S: string; Symb: Char): string;
var var
P: Integer; P: Integer;
@ -471,6 +473,7 @@ function Copy2SpaceDel(var S: string): string;
begin begin
Result := Copy2SymbDel(S, ' '); Result := Copy2SymbDel(S, ' ');
end; end;
{$ENDIF}
function AnsiProperCase(const S: string; const WordDelims: TCharSet): string; function AnsiProperCase(const S: string; const WordDelims: TCharSet): string;
var var