String Convertion functions

 Top 

Example code : ToBoolean

procedure TForm1.W3Button16Click(Sender: TObject);

var

  str1, str2 : string;

  n1,n2   : float;

  same : Boolean;

  small, large, i : Integer;

  amount1, amount2, amount3 : Extended;

begin

  str1 := 'true';

  str2 := '123.456E+002';

 

  same := str1.ToBoolean;

  WriteLn(same);

 

  same := str2.ToBoolean;

  WriteLn(same);

 

  same := '1'.ToBoolean;

  WriteLn(same);

 

  same := '0'.ToBoolean;

  WriteLn(same);

end;

true

false

true

false

------

 

mytoggle_plus1JS output

function W3Button16Click(Self, Sender$13) {

      var str1 = "";

      var str2 = "";

      var n1 = 0;

      var n2 = 0;

      var same = false;

      var small = 0;

      var large = 0;

      var i$10 = 0;

      var amount1 = 0;

      var amount2 = 0;

      var amount3 = 0;

      str1 = "true";

      str2 = "123.456E+002";

      same = StrToBool(str1);

      WriteLn(same);

      same = StrToBool(str2);

      WriteLn(same);

      same = true;

      WriteLn(same);

      same = false;

      WriteLn(same);

   }

 

Example code : ToFloat and ToFloatDef

procedure TForm1.W3Button16Click(Sender: TObject);

var

  A, B, C, D, E, F : Float;

  str1 : string;

begin

str1 := '124.58';

  A := str1.ToFloat();

  B := '$FG'.ToFloatDef(1.89);    // '100' string converted to 100 integer

  C := '$FFFFF'.ToFloatDef(2.77);  // Leading blanks are ignored

  D := '9999.898'.ToFloatDef(3.88);    // Hexadecimal values start with a '$'

  E := '-0.8945'.ToFloatDef(4.99);  // ... or with a '0x'

  F := A + B + C + D + E;     // Lets add up all these integers

 

  WriteLn('A : '+FloatToStr(A));

  WriteLn('B : '+FloatToStr(B));

  WriteLn('C : '+FloatToStr(C));

  WriteLn('D : '+FloatToStr(D));

  WriteLn('E : '+FloatToStr(E));

  WriteLn('F : '+FloatToStr(F));

end;

A : 124.58

B : 1.89

C : 2.77

D : 9999.898

E : -0.8945

F : 10128.243499999999

 

mytoggle_plus1JS output

function W3Button16Click(Self, Sender$13) {

      var A$94 = 0;

      var B$8 = 0;

      var C = 0;

      var D$1 = 0;

      var E = 0;

      var F$1 = 0;

      var str1 = "";

      str1 = "124.58";

      A$94 = parseFloat(str1);

      B$8 = 1.89;

      C = 2.77;

      D$1 = 9999.898;

      E = -0.8945;

      F$1 = A$94+B$8+C+D$1+E;

      WriteLn(("A : "+FloatToStr$_Float_(A$94)));

      WriteLn(("B : "+FloatToStr$_Float_(B$8)));

      WriteLn(("C : "+FloatToStr$_Float_(C)));

      WriteLn(("D : "+FloatToStr$_Float_(D$1)));

      WriteLn(("E : "+FloatToStr$_Float_(E)));

      WriteLn(("F : "+FloatToStr$_Float_(F$1)));

   }

 

Example code : ToInteger and ToIntegerDef

procedure TForm1.W3Button16Click(Sender: TObject);

var

  A, B, C, D, E, F : Integer;

  str1, str2, str3, str4 : string;

begin

  str1 := '100';

  str2 := '  -12';

  str3 := '$FE' ;

  str4 := '-$FE';

  A := str1.ToInteger;

  //str1.ToIntegerDef(str1);

  B := str1.ToIntegerDef(0);    // '100' string converted to 100 integer

  C := str2.ToIntegerDef(0);  // Leading blanks are ignored

  D := str3.ToIntegerDef(66);    // Hexadecimal values start with a '$'

  E := str4.ToIntegerDef(55);  // ... or with a '0x'

  F := A + B + C + D + E;     // Lets add up all these integers

 

  WriteLn('a: '+ IntToStr( '100 '.ToIntegerDef(123)) ); // Trailing blanks are not supported

  WriteLn('b: '+ IntToStr( '$FE'.ToIntegerDef(-1)) );

  WriteLn('c: '+ IntToStr( '-$FE'.ToIntegerDef(-1)) );

  WriteLn('d: '+ IntToStr( '0xFE'.ToIntegerDef(-2)) );

  WriteLn('e: '+ IntToStr( '-0xFE'.ToIntegerDef(-2)) );

 

  WriteLn('A : '+IntToStr(A));

  WriteLn('B : '+IntToStr(B));

  WriteLn('C : '+IntToStr(C));

  WriteLn('D : '+IntToStr(D));

  WriteLn('E : '+IntToStr(E));

  WriteLn('F : '+IntToStr(F));

end;

a: 123 

b: 254 

c: -254

d: 254

e: -254

 

A : 100

B : 100

C : -12

D : 66

E : 55

F : 309 

------------

mytoggle_plus1JS output

function W3Button16Click(Self, Sender$13) {

      var A$61 = 0;

      var B$8 = 0;

      var C = 0;

      var D$1 = 0;

      var E = 0;

      var F$1 = 0;

      var str1 = "";

      var str2 = "";

      var str3 = "";

      var str4 = "";

      str1 = "100";

      str2 = "  -12";

      str3 = "$FE";

      str4 = "-$FE";

      A$61 = 100;

      B$8 = StrToIntDef(str1,0);

      C = StrToIntDef(str2,0);

      D$1 = StrToIntDef(str3,66);

      E = StrToIntDef(str4,55);

      F$1 = A$61+B$8+C+D$1+E;

      WriteLn("a: 123");

      WriteLn("b: 254");

      WriteLn("c: -254");

      WriteLn("d: 254");

      WriteLn("e: -254");

      WriteLn(("A : "+A$61.toString()));

      WriteLn(("B : "+B$8.toString()));

      WriteLn(("C : "+C.toString()));

      WriteLn(("D : "+D$1.toString()));

      WriteLn(("E : "+E.toString()));

      WriteLn(("F : "+F$1.toString()));

   }