-
-
[旧帖]
[求助]delphi写注册机遇到问题
0.00雪花
-
发表于:
2007-11-20 19:03
3944
-
[旧帖] [求助]delphi写注册机遇到问题
0.00雪花
procedure TForm1.Edit2Change(Sender: TObject);
var name,s1,sum,serial:string;
i,s2:integer;
begin
name:=edit1.Text ;
for i:=1 to length(name) do
s1:=ord(name(i));
s2:=strtoint('s1');
s2:=inttostr('s2');
sum:=sum+s2 ;
serial:=sum*95382
edit2.Text=serial
S1那里提示错了?怎么 错了?依次取字符窜的ASCII码不是这样吗?谁会的提示下?
[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课