For-lykke for hurtig...

Jeg ved ikke om dette er grunden, men prøv at køre funktionen randomize inden løkken, eller onFormCreate

/SpEeDy

Denne funktion virker fint:

function RandomStr (ALen : integer) : string;
// ALen - desired length of password
const Tbl : array [0 .. $1F] of char = (
  \'0\', \'1\', \'2\', \'3\', \'4\', \'5\', \'6\', \'7\', \'8\', \'9\', \'A\', \'B\',
  \'C\', \'D\', \'E\', \'F\', \'G\', \'H\', \'K\', \'M\', \'N\', \'P\', \'Q\', \'R\',
  \'S\', \'T\', \'U\', \'V\', \'W\', \'X\', \'Y\', \'Z\');
var i, n, k, x, j : integer;
begin
  SetString (Result, nil, ALen);
  n := ALen * 5; // bits in random number
  j := 1;
  while n > 0 do begin
    if n > 30 then k := 30 // work with 32-bits numbers
    else k := n;
    x := Random (1 shl k - 1);
    for i := 1 to k div 5 do begin
      Result [j] := Tbl [x and $1F];
      inc (j);
      x := x ShR 5;
    end;
    dec (n, k)
  end;
end;

Du kalder den så bare med

MyString := RandomStr(x)

x = hvor mange tegn strengen skal være på!

Snowball

Hmm, med den indbyggede Random giver det da ikke ens bogstaver i
spørgerens eksempel. Må vi se hele din kode?

Ja, koden ser sådan ud:

function TForm1.MixString: String;
var S:String;
    i:Integer;
begin
    SetLength(S,12);
    for i:=1 to Length(S) do
    begin
      S[i]:=Chr(MyRandom(156,45));
    end;
    Result:=S;
end;

function MyRandom(Max :Integer;Min:Integer = 1): Integer;
var Int:Integer;
begin
    Randomize;
    Int:=Random(Max + 1);
    if Int >= Min then
      Result:=Int
    else
      Result:=Int+Min;
end;

flozzy >>

Randomize må du kun kkalde een gang. Ikke n gange som du gør.


Fra onæine hjælpen :

Do not combine the call to Randomize in a loop with calls to the Random function. Typically, Randomize is called only once, before all calls to Random.


Prøv der her det virker :

function MyRandom(Max :Integer;Min:Integer = 1): Integer;
var
  Int : Integer;
begin
  Int:=Random(Max + 1);
  if Int >= Min then
    Result:=Int
  else
    Result:=Int+Min;
end;


function TForm1.MixString: String;
var
    S : String;
    i : Integer;
begin
  SetLength(S,12);
  for i:=1 to Length(S) do
    S[i]:=Chr(MyRandom(156,45));
  Result:=S;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := MixString;
end;

initialization
  Randomize;
end.


Jens B. http://fotx.net/borrisholt

Altså, flozzy, hvorfor spilder du vores tid med at stille et spørgsmål,
der er helt hen i vejret i forhold til den kode du rent faktisk kører.
Prøv lige at tænk dig om en anden gang.

Sorry, men tak for alle svarene. Nu virker det bare! Forklaringen om Randomize løste også et tidligere problem, der har drillet en del.
Mvh. Flozzy