能力值:
( LV2,RANK:10 )
|
-
-
2 楼
类型不匹配啊~~~
我想您是想这样吧:
procedure TForm1.Edit2Change(Sender: TObject);
var name,
serial : string;
i : integer;
sum : Longword ;
begin
name:=edit1.Text ;
sum:=0;
for i:=0 to length(name)-1 do
sum:= sum+ ord(name[i]);
serial:=inttostr(sum*95382);
edit2.Text=serial;
end;
|
能力值:
( LV2,RANK:10 )
|
-
-
3 楼
算法是这样的:取用户名ASCII码累积和为S1(十六进制)
S2=(S1+1)*17496(十六)
S3=S2的十进制
希望哪位大大写出来~主要是这些进制的转换弄不明白~
|
能力值:
( LV2,RANK:10 )
|
-
-
4 楼
会的请写出来~主要是进制之间的转换~
|
能力值:
( LV9,RANK:1250 )
|
-
-
5 楼
偶连源代码都看不懂...汗
|
能力值:
( LV4,RANK:50 )
|
-
-
6 楼
name[i] 不知道是不是
|
能力值:
( LV2,RANK:10 )
|
-
-
7 楼
算法就是happydown的第一个算法~
|
|
|