BaseIntToStr or BaseStrToInt functions from Delphi to c#

Question

0.00/5 (No votes)

See more:

I am trying to convert the Delphi funtions BaseIntToStr or BaseStrToInt to c# I am not getting the exact results as compared to delphi. Any one can help me out over here.

C# code

C#

private int BaseStrToInt(string value)
{
    string temp;
    string validChars = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
    int result = 0;

    result = 0;
    for (int index= 0; index < value.Length; index++)
    {
        temp = value.Substring(index, 1);
        result = (result * 36) + validChars.IndexOf(temp);
    }

    return result;
}
private string BaseIntToStr(int value)
{
    string result = string.Empty;
    int temp = value;
    char[] base36Chars = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray();

    //while(value != 0)
    //{
        temp = (value  % 36);
        result = base36Chars[temp] + result;
        value = (value / 36);
    //}

    result = result.PadLeft(3-result.Length, '0');
    return result.Substring(0, 3);
}

Delphi code

C#

function BaseStrToInt(const Base : byte; const strToConvert : string) : longint;
var
   intResult : longint;
   bytIndex : byte;
const
  strValidChars : string [36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
  intResult := 0;
  for bytIndex := 1 to Length(strTOConvert) do
   intResult := (intResult * Base) + Pred(Pos(UpperCase(strToConvert[bytIndex]),strValidChars));
  Result := intResult;
end;

VB

function BaseIntToStr(const Base : byte; intToConvert : longint; intDigits : integer) : string;
  var
    intIndex  : integer;
    strResult : string;
  const
    strValidChars : string [36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
  strResult := '';
  repeat
    strResult := strValidChars[Succ(intToConvert mod Base)] + strResult;
    intToConvert := intToConvert div Base;
  until intToConvert = 0;

  for intIndex := 1 to (intDigits - Length(strResult)) do
    strResult := '0' + strResult;

  strResult := Copy(strResult,1,intDigits);

  Result := strResult;
end;

Posted 6-May-10 9:45am

samyu1*

Add a Solution

Comments

samyu1* 6-May-10 15:47pm

Any one who has Delphi and c# knowledge please help me out. Thank you.

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Christian Graus · Answer 1 · 2010-05-06T09:51:00

Solution 1

C# strings are unicode and this code is a hideous hack. You can use ToString on a number to turn it to a string representation. You can use int.TryParse to try to convert a full string of numbers into a numeric representation.

Posted 6-May-10 9:51am

Christian Graus

Comments

samyu1* 6-May-10 16:02pm

Actually this is not just converting int to string or string to int It converts a string to an integer in the base specified i.e. Base 2 (binary), Base 10 (standard), Base 16 (Hex), etc.

Henry Minute · Answer 2 · 2010-05-06T12:49:00

For a somewhat limited number of bases there is

// Usage
// Convert.ToString(numberToConvert, baseInDecimal);

// Example
Convert.ToString(6, 2); //Will output '110'

The problem is that the only bases it allows are 2, 8, 10 and 16.

<Edit>
I have just found Converting numbers to another radix[^] which may assist you.
</Edit>

<Edit 2>
The c# example on this[^] page on MSDN claims to convert to any base in the range 2,36.
</Edit 2>