生成SESSIONID
uses SynCommons
procedure TForm1.Button1Click(Sender: TObject);
var
i: Cardinal;
begin
i := abs(Random32*PPtrInt(self)^);
end;
生成SESSIONID
uses SynCommons
procedure TForm1.Button1Click(Sender: TObject);
var
i: Cardinal;
begin
i := abs(Random32*PPtrInt(self)^);
end;