Convert C# code to Delphi, please help!

[mesutalturk]

How do i convert the following C# code to Delphi?
public static uint GenerateSiteID( string SiteName)
{
uint id = 0;
char[] arr = SiteName.ToChar Array(); //Convert the sitename to a Char
Array
for (int i = 0; i < arr.Length; i++)
{
char c = arr[i];
int intc = c;
int upper = intc & '\x00df'; //Upper case the letter
id = (uint)(id * 101) + (uint)upper;
}
return (id % Int32.MaxValue) + 1; //do a MOD and add 1
}
Thanks for your help!

[Noah Sham]

How? ..learn object pascal

<me*********@gm ail.comwrote in message
news:11******** **************@ h48g2000cwc.goo glegroups.com.. .

How do i convert the following C# code to Delphi?
public static uint GenerateSiteID( string SiteName)
{
uint id = 0;
char[] arr = SiteName.ToChar Array(); //Convert the sitename to a Char
Array
for (int i = 0; i < arr.Length; i++)
{
char c = arr[i];
int intc = c;
int upper = intc & '\x00df'; //Upper case the letter
id = (uint)(id * 101) + (uint)upper;
}
return (id % Int32.MaxValue) + 1; //do a MOD and add 1
}
Thanks for your help!

[Massuda]

me*********@gma il.com escreveu:

How do i convert the following C# code to Delphi?

Try this online tool from Borland...

http://dotnet.borland.com/babelclient/BabelClient.aspx

[chanmm]

Make it a library class then call by Delphi so you might not need to
convert.

chanmm

<me*********@gm ail.comwrote in message
news:11******** **************@ h48g2000cwc.goo glegroups.com.. .

How do i convert the following C# code to Delphi?
public static uint GenerateSiteID( string SiteName)
{
uint id = 0;
char[] arr = SiteName.ToChar Array(); //Convert the sitename to a Char
Array
for (int i = 0; i < arr.Length; i++)
{
char c = arr[i];
int intc = c;
int upper = intc & '\x00df'; //Upper case the letter
id = (uint)(id * 101) + (uint)upper;
}
return (id % Int32.MaxValue) + 1; //do a MOD and add 1
}
Thanks for your help!

[mesutalturk]

this code could be convert or changing by me? help me please :(

[Barry Kelly]

me*********@gma il.com wrote:

How do i convert the following C# code to Delphi?

public static uint GenerateSiteID( string SiteName)
{
uint id = 0;
char[] arr = SiteName.ToChar Array(); //Convert the sitename to a Char
Array
for (int i = 0; i < arr.Length; i++)
{
char c = arr[i];
int intc = c;
int upper = intc & '\x00df'; //Upper case the letter
id = (uint)(id * 101) + (uint)upper;
}
return (id % Int32.MaxValue) + 1; //do a MOD and add 1
}

function GenerateSiteID( const SiteName: string): Cardinal;
var
i: Integer;
begin
Result := 0;
for i := 1 to Length(SiteName ) do
Result := Result * 101 + Ord(UpCase(Site Name[i]));
Result := Result mod Cardinal(High(I nteger)) + 1;
end;

-- Barry

--
http://barrkel.blogspot.com/

[mesutalturk]

thans for all your helps. but now its must to be giving this ritgh code
mubber is 1694692055 but its had give me code number is in the
mesedo.com like 1727991987 by them.. how can i do that.

[Barry Kelly]

me*********@gma il.com wrote:

thans for all your helps. but now its must to be giving this ritgh code
mubber is 1694692055 but its had give me code number is in the
mesedo.com like 1727991987 by them.. how can i do that.

Yes, I see that - the C# code:

int upper = intc & '\x00df'; //Upper case the letter

.... does more than upper case the letter. It also modifies non-letters
like '.'. Instead:

function GenerateSiteId( const SiteName: string): Cardinal;
var
i: Integer;
begin
Result := 0;
for i := 1 to Length(SiteName ) do
Result := Result * 101 + Ord(SiteName[i]) and $DF;
Result := Result mod Cardinal(High(I nteger)) + 1;
end;

-- Barry

--
http://barrkel.blogspot.com/

[mesutalturk]

very thanks. :)