---------------------------------------------------------------------------
| 1513 | } |
| 1514 | //--------------------------------------------------------------------------- |
| 1515 | void MyStrToFloatException(String str, double & result) |
| 1516 | { |
| 1517 | #if __BORLANDC__ >= 0x0630 |
| 1518 | char ds = FormatSettings.DecimalSeparator; |
| 1519 | #else |
| 1520 | char ds = DecimalSeparator; |
| 1521 | #endif |
| 1522 | int i; |
| 1523 | if( ds != '.' ) |
| 1524 | { |
| 1525 | i = str.Pos('.'); |
| 1526 | if( i>0 ) |
| 1527 | str[i] = ds; |
| 1528 | } |
| 1529 | if( ds != ',' ) |
| 1530 | { |
| 1531 | i = str.Pos(','); |
| 1532 | if( i>0 ) |
| 1533 | str[i] = ds; |
| 1534 | } |
| 1535 | result = (double)StrToFloat(str); |
| 1536 | } |
| 1537 | //--------------------------------------------------------------------------- |
| 1538 | double MyStrToFloatException(String str) |
| 1539 | { |
no outgoing calls
no test coverage detected