求函数(数据转换)(3分)

W

wl821205

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-09

• #1

各位:我做了一个注册机获取了硬盘ID号,ID号是MRG254KBDDWLHP,本人想将此ID号,全部转换成十进制数字的形式,请问如何转换?如果转换过来,如何将ID号还原;?

 

白

白河愁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-09

• #2

const
ID = 'MRG254KBDDWLHP';

var
Buf: array[0..1023] of Byte;

procedure Convert;
var
i: Integer;
begin
for i:= 1 to Length(ID) do
Buf[i-1]:= ord(ID);
end;

function UnConver( Size: DWORD ): string;
var
i: Integer;
begin
Result:= '';
for i:= 0 to Size - 1 do
Result:= Result + Chr(Buf);
end;

 

W

wl821205

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-10

• #3

老兄:能不能写得详细一点,比如,在一个窗体中,有两个edit,我在一个edit1中填入字母子,单击button1 ,转换成十制数字在edit2中