diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-23 10:40:56 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-23 10:40:56 +0200 |
commit | c4882172d63af82f9509288686bbae25acfcc2f8 (patch) | |
tree | 549825dd3b6ac5fc2152cc841c48b93b466baa39 | |
parent | 526f57bf7457490b7ee69a711c095c80bda4fcd3 (diff) | |
download | fpGUI-c4882172d63af82f9509288686bbae25acfcc2f8.tar.xz |
Removed unused code.
-rw-r--r-- | docview/components/richtext/ACLStringUtility.pas | 125 |
1 files changed, 0 insertions, 125 deletions
diff --git a/docview/components/richtext/ACLStringUtility.pas b/docview/components/richtext/ACLStringUtility.pas index 5ddcb2b7..76dd0fe7 100644 --- a/docview/components/richtext/ACLStringUtility.pas +++ b/docview/components/richtext/ACLStringUtility.pas @@ -215,20 +215,6 @@ Procedure ParseConfigLine( const S: string; // Removes spaces around the separator in the given string Procedure RemoveSeparatorSpaces( var S: string; const Separator:string ); -{$ifdef os2} -// ------------ Ansi String utilities ------------------------ - -// Right & left trim that works with AnsiStrings. -Function AnsiTrim( const S: AnsiString ): AnsiString; - -Procedure AnsiParseConfigLine( const S: Ansistring; - var keyName: Ansistring; - var keyValue: Ansistring ); - -Function AnsiExtractNextValue( var CSVString: AnsiString; - const Separator: AnsiString ): AnsiString; - -{$endif} // ------------- Lists of strings, and strings as lists ----------- @@ -922,39 +908,6 @@ Begin Result := ( UppercaseC >= 'A' ) and ( UppercaseC <= 'Z' ); end; -{$ifdef os2} -// Returns true if s is only spaces (or empty) -Function IsSpaces( const s: string ): boolean; -Begin - Asm - MOV ESI,s // get address of s into ESI - MOV CL,[ESI] // get length of s - MOVZX ECX, CL // widen CL - INC ECX - -!IsSpacesLoop: - INC ESI // move to next char - DEC ECX - JE !IsSpacesTrue - - MOV AL,[ESI] // load character - CMP AL,32 // is it a space? - JE !IsSpacesLoop // yes, go to next - - // no, return false - MOV EAX, 0 - JMP !IsSpacesDone - -!IsSpacesTrue: - MOV EAX, 1 - -!IsSpacesDone: - LEAVE - RETN32 4 - End; - -End; -{$else} // Returns true if s is only spaces (or empty) Function IsSpaces( const s: string ): boolean; var @@ -970,7 +923,6 @@ Begin end; result := true; end; -{$endif} Function StrLeft0Pad( const n: integer; const width: integer ): string; Begin @@ -1268,83 +1220,6 @@ begin Result:= StartString + '1'; end; -{$ifdef OS2} - -Function AnsiTrim( const S: AnsiString ): AnsiString; -Var - i: longint; -Begin - i:= 1; - while i<length( S) do - begin - if S[ i ]<>' ' then - break; - inc( i ); - end; - Result:= S; - if i>1 then - AnsiDelete( Result, 1, i-1 ); - i:= length( Result ); - while i>=1 do - begin - if S[ i ]<>' ' then - break; - dec( i ); - end; - AnsiSetLength( Result, i ); -End; - -Procedure AnsiParseConfigLine( const S: Ansistring; - var keyName: Ansistring; - var keyValue: Ansistring ); -Var - line: AnsiString; - EqualsPos: longint; -Begin - KeyName:= ''; - KeyValue:= ''; - - line:= AnsiTrim( S ); - EqualsPos:= AnsiPos( '=', line ); - - if ( EqualsPos>0 ) then - begin - KeyName:= AnsiCopy( line, 1, EqualsPos-1 ); - KeyName:= AnsiTrim( KeyName ); - - KeyValue:= AnsiCopy( line, EqualsPos+1, length( line )-EqualsPos ); - KeyValue:= AnsiTrim( KeyValue ); - end; -end; - -Function AnsiExtractNextValue( var CSVString: AnsiString; - const Separator: AnsiString ): AnsiString; -Var - SeparatorPos: integer; -Begin - SeparatorPos:= AnsiPos( Separator, CSVString ); - if SeparatorPos>0 then - begin - Result:= AnsiCopy( CSVString, 1, SeparatorPos-1 ); - AnsiDelete( CSVString, 1, SeparatorPos + length( Separator ) - 1 ); - end - else - begin - Result:= CSVString; - CSVString:= ''; - end; - Result:= AnsiTrim( Result ); - // Remove qyotes if present - if ( Result[1] = chr(34) ) - and ( Result[ length(Result) ] = chr(34) ) then - begin - AnsiDelete( Result, 1, 1 ); - AnsiDelete( Result, length( Result ), 1 ); - Result:= AnsiTrim( Result ); - end; -end; -{$Endif} - Procedure ReverseList( TheList:TStrings ); Var TempList: TStringList; |