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


public static uint GenerateSiteID(string SiteName)
{
uint id = 0;
char[] arr = SiteName.ToCharArray(); //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!

How? ..learn object pascal

<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> How do i convert the following C# code to Delphi?
>
>
> public static uint GenerateSiteID(string SiteName)
> {
> uint id = 0;
> char[] arr = SiteName.ToCharArray(); //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!
>

(E-Mail Removed) escreveu:

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

Try this online tool from Borland...

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

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

chanmm

<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> How do i convert the following C# code to Delphi?
>
>
> public static uint GenerateSiteID(string SiteName)
> {
> uint id = 0;
> char[] arr = SiteName.ToCharArray(); //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!
>

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

(E-Mail Removed) wrote:

> How do i convert the following C# code to Delphi?
>
> public static uint GenerateSiteID(string SiteName)
> {
> uint id = 0;
> char[] arr = SiteName.ToCharArray(); //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(SiteName[i]));
Result := Result mod Cardinal(High(Integer)) + 1;
end;

-- Barry

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

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.

(E-Mail Removed) 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(Integer)) + 1;
end;

-- Barry

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

very thanks.