paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 21:39:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: TrimCustomOptions: trim start and end

Browse Source 
git-svn-id: trunk@36318 -
This commit is contained in:
mattias 2012-03-25 15:42:34 +00:00
parent c6e0578538
commit 98e9e68885
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/compileroptions.pp
View File

@ -2239,12 +2239,8 @@ begin
end; end;
function TBaseCompilerOptions.TrimCustomOptions(o: string): string; function TBaseCompilerOptions.TrimCustomOptions(o: string): string;
var
i: Integer;
begin begin
Result:=Trim(o); Result:=SpecialCharsToSpaces(o,true);
for i:=length(Result) downto 1 do
if Result[i] in [#0..#31,#127] then System.Delete(Result,i,1);
end; end;
function TBaseCompilerOptions.GetOptionsForCTDefines: string; function TBaseCompilerOptions.GetOptionsForCTDefines: string;