-
-
[旧帖]
[求助]delphi写注册机遇到问题
0.00雪花
-
发表于:
2007-11-20 19:03
4055
-
[旧帖] [求助]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码不是这样吗？谁会的提示下？
[培训]科锐逆向工程师培训第53期2025年7月8日开班！
