Solved

php function to delphi

Posted on 2012-03-23

1 solution

359 Views

Last Modified: 2012-03-24

Hi experts.

I need to convert a JavaScript code to delphi:

controle1 = (Math.random() * 65465 | 0).toString(16)
controle2 = (2765476 * Math.random() | 0).toString(36);

Someone could help me ?

Thanks

Comment

Question by:alpires

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

3 Comments

LVL 3

Accepted Solution

by:gskoczylas

gskoczylas earned 500 total points

ID: 377603642012-03-24

Something like this (not tested this code):

unit Unit1;

interface

implementation

type
  TBaseRange = 2..36;

function  ToString({const} nValue:  Integer;
                   const   nBase:  TBaseRange)
                   : string;

  function  ToChar(const   nDigit:  Integer)
                   : Char;
  begin
    if  nDigit < 10  then
      Result := Chr(Ord('0') + nDigit)
    else
      Result := Chr(Ord('A') + nDigit - 10)
  end { ToChar };

begin  { ToString }
  Assert(nValue >= 0);
  Result := '';
  repeat
    Result := ToChar(nValue mod nBase) + Result;
    nValue := nValue div nBase
  until  nValue = 0
end { ToString };


procedure  Convert;

var
  controle1:  string;
  controle2:  string;

begin  { Convert }
  // controle1 = (Math.random() * 65465 | 0).toString(16)
  controle1 := ToString(Random(65465) {or 0}, 16);

  // controle2 = (2765476 * Math.random() | 0).toString(36);
  controle2 := ToString(Random(2765476) { or 0}, 36);
end { Convert };

initialization
  Randomize();

end.

Open in new window

LVL 9

Expert Comment

by:rinfo

ID: 377604522012-03-24

Function BaseChange(Num, NewBase : Word) : String;
Const
BaseChars : Array [0..36] of Char = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
Var
St : String;
begin
St := '';
Repeat
St := BaseChars[Num MOD NewBase] + St;
Num := Num Div NewBase;
Until Num = 0;
BaseChange := St;
end;

Int var1 = BaseChange((1+Random(65465),16);
if var1 then Control1:= IntTostr(var1) else control1:= '0';
Int var1 = BaseChange(floor((2765476*Random)),36);
if var1 then control2 := IntTostr(var1) else control2 = '0';

LVL 9

Expert Comment

by:rinfo

ID: 377605142012-03-24

This code is tested
Function TForm1.BaseChange(Num, NewBase : Word) : String;
Const
BaseChars : Array [0..36] of Char = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
Var
St : String;
begin
St := '';
Repeat
St := BaseChars[Num MOD NewBase] + St;
Num := Num Div NewBase;
Until Num = 0;
BaseChange := St;
end;

procedure TForm1.Button1Click(Sender: TObject);
var var1:string;Control1:String;
num:integer;
begin

var1:= BaseChange((1+Random(65465)),16);
if length(var1)>0 then Control1:= var1 else control1:= '0';
showmessage(control1);
num:= floor(2765476*Random);
var1 := BaseChange(num,36);
if length(var1)>0 then control1 := var1 else control1:= '0';
showMessage(Control1);

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Improved Form Tokens to Guard Against CSRF and Screen Scrapers

Article by: Ray

Nothing in an HTTP request can be trusted, including HTTP headers and form data. A form token is a tool that can be used to guard against request forgeries (CSRF). This article shows an improved approach to form tokens, making it more difficult to…

AJAX form submission with customized server field validation

Article by: Julian

This article discusses how to implement server side field validation and display customized error messages to the client.

Introduction to jQuery (Part 1)

Video by: Jason

The viewer will learn the basics of jQuery, including how to invoke it on a web page. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery.: (CODE)

Introduction to jQuery (Part 2)

Video by: Jason

The viewer will learn the basics of jQuery including how to code hide show and toggles. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery…