Gerar número de sessão em Delphi |
{-----> Função para gerar número de sessão-------------------------------}
function TFormTesteBemaSAT.NumSessao: integer; begin Randomize; numeroSessao := Random(999999); Result:= numeroSessao; end; {------------------------------------------------------------------------} |