sia su delphi 2.0 ke sulla 6.0 ho riscontrato questo problema:
quando uso random x inserire un valore casuale questo mi da gli stessi valori anke se riavvio il programma!come mai?
nn credo sia un problema di codice cmq...
procedure TArrays.Random(Value: string);
var counter,Nrandom:integer;
begin
Nrandom:=strtoint(value);
for counter:=1 to Nrandom do
begin
incrementa;
Strarray[i]:= inttostr(random(9999999999));
MainForm.Records.caption:='Record inseriti: '+ inttostr(i);
end;
Aggiorna;
end;
nn so proprio cosa fare!