diff options
| author | Andreas Bregas <ab@openoffice.org> | 2001-07-04 13:18:17 +0000 |
|---|---|---|
| committer | Andreas Bregas <ab@openoffice.org> | 2001-07-04 13:18:17 +0000 |
| commit | becd66798d83e44b660b95b8efb59756632bfdb5 (patch) | |
| tree | ffafbace959f8cab18e69e77da9d86272ca7ea5b | |
| parent | e37f2bad6c7f8cc1a69428983ae5bff0cfabf914 (diff) | |
#89204# RTLFUNC(Str): Replace , only if numeric
| -rw-r--r-- | basic/source/runtime/methods.cxx | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/basic/source/runtime/methods.cxx b/basic/source/runtime/methods.cxx index 88ad2392ff7f..f701a7c3037e 100644 --- a/basic/source/runtime/methods.cxx +++ b/basic/source/runtime/methods.cxx @@ -2,9 +2,9 @@ * * $RCSfile: methods.cxx,v $ * - * $Revision: 1.28 $ + * $Revision: 1.29 $ * - * last change: $Author: ab $ $Date: 2001-06-28 13:02:07 $ + * last change: $Author: ab $ $Date: 2001-07-04 14:18:17 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -1338,9 +1338,12 @@ RTLFUNC(Str) rPar.Get( 1 )->Format( aStr ); // Numbers start with a space if( rPar.Get( 1 )->IsNumericRTL() ) + { aStr.Insert( ' ', 0 ); - // Kommas durch Punkte ersetzen, damits symmetrisch zu Val ist! - aStr.SearchAndReplace( ',', '.' ); + + // Kommas durch Punkte ersetzen, damit es symmetrisch zu Val ist! + aStr.SearchAndReplace( ',', '.' ); + } rPar.Get(0)->PutString( aStr ); } } |