From Clomosy Docs

No edit summary
No edit summary
Line 6: Line 6:


'''Example:'''<br>
'''Example:'''<br>
'''var'''
 
  firstNumber,secondNumber, thirdNumber, fourthNumber : Integer;<br>
:'''Base Syntax'''
'''begin'''<br>
 
  firstNumber := 32;
  var
  secondNumber := '''StrToIntDef'''('test00', 10);  // Leading blanks are ignored
    firstNumber,secondNumber, thirdNumber, fourthNumber : Integer;
  thirdNumber := '''StrToIntDef'''('$1E', 0);    // Hexadecimal values start with a '$'
 
  fourthNumber := '''StrToIntDef'''('-0x1E', 0);  // ... or with a '0x'<br>
  begin
  ShowMessage('firstNumber : '+IntToStr(firstNumber));
 
  ShowMessage('secondNumber : '+IntToStr(secondNumber));
    firstNumber := 32;
  ShowMessage('thirdNumber : '+IntToStr(thirdNumber));
    secondNumber := StrToIntDef('test00', 10);  // Leading blanks are ignored
  ShowMessage('fourthNumber : '+IntToStr(fourthNumber));<br>
    thirdNumber := StrToIntDef('$1E', 0);    // Hexadecimal values start with a '$'
  '''end;'''
    fourthNumber := StrToIntDef('-0x1E', 0);  // ... or with a '0x'
 
    ShowMessage('firstNumber : '+IntToStr(firstNumber));
    ShowMessage('secondNumber : '+IntToStr(secondNumber));
    ShowMessage('thirdNumber : '+IntToStr(thirdNumber));
    ShowMessage('fourthNumber : '+IntToStr(fourthNumber));
 
  end;
 
:'''TRObject Syntax'''
  var
    firstNumber,secondNumber, thirdNumber, fourthNumber : Integer;
 
  {
 
    firstNumber = 32;
    secondNumber = StrToIntDef('test00', 10); // Leading blanks are ignored
    thirdNumber = StrToIntDef('$1E', 0);    // Hexadecimal values start with a '$'
    fourthNumber = StrToIntDef('-0x1E', 0);  // ... or with a '0x'
 
    ShowMessage('firstNumber : '+IntToStr(firstNumber));
    ShowMessage('secondNumber : '+IntToStr(secondNumber));
    ShowMessage('thirdNumber : '+IntToStr(thirdNumber));
    ShowMessage('fourthNumber : '+IntToStr(fourthNumber));
 
  }


'''Output:'''<br>
'''Output:'''<br>

Revision as of 14:18, 7 February 2024

function StrToIntDef(const IntegerString string; Default Integer):Integer;

The StrToIntDef function converts an Integer string, IntegerString such as '100' into an Integer value, with a Default if the conversion fails.

It supports +ve and -ve numbers, and hexadecimal numbers, as prefixed by $ or 0x.

Example:

Base Syntax
 var
   firstNumber,secondNumber, thirdNumber, fourthNumber : Integer;
 
 begin
 
   firstNumber := 32;
   secondNumber := StrToIntDef('test00', 10);  // Leading blanks are ignored
   thirdNumber := StrToIntDef('$1E', 0);    // Hexadecimal values start with a '$'
   fourthNumber := StrToIntDef('-0x1E', 0);  // ... or with a '0x'
 
   ShowMessage('firstNumber : '+IntToStr(firstNumber));
   ShowMessage('secondNumber : '+IntToStr(secondNumber));
   ShowMessage('thirdNumber : '+IntToStr(thirdNumber));
   ShowMessage('fourthNumber : '+IntToStr(fourthNumber));
 
 end;
TRObject Syntax
 var
   firstNumber,secondNumber, thirdNumber, fourthNumber : Integer;
 
 {
 
   firstNumber = 32;
   secondNumber = StrToIntDef('test00', 10);  // Leading blanks are ignored
   thirdNumber = StrToIntDef('$1E', 0);    // Hexadecimal values start with a '$'
   fourthNumber = StrToIntDef('-0x1E', 0);  // ... or with a '0x'
 
   ShowMessage('firstNumber : '+IntToStr(firstNumber));
   ShowMessage('secondNumber : '+IntToStr(secondNumber));
   ShowMessage('thirdNumber : '+IntToStr(thirdNumber));
   ShowMessage('fourthNumber : '+IntToStr(fourthNumber));
 
 }

Output:

firstNumber : 32
secondNumber : 10
thirdNumber : 30
fourthNumber : -30