Hallo zusammen!
Kann jemand diese code In delphi übersetzen.
Code:
{
String Name;
unsigned int NameLong;
unsigned int serial;
unsigned char CharTemp;
unsigned int serialTemp;
Name=edName->Text;
NameLong=edName->GetTextLen();
serial=0;
serialTemp=0;
unsigned int i=0;
do
{
CharTemp=Name[i+1];
i++;
CharTemp = CharTemp^i;
serial += CharTemp;
} while (i<NameLong);
serialTemp = CharTemp*6;
serial = serial<<7;
serial += serialTemp;
char buffer[80];
sprintf(buffer, "%X", serial);
edSerial->Text=buffer;
// 78960 -> 13470
Ich kann nicht c oder c++
wäre schön wenn ihr mir helfen könnt.
MFG
ECO
[edit=Admin]Code in CODE-Tags ([code]) gesetzt. Künftig bitte selber machen, danke. 
Mfg, Daniel[/edit]