1:
2:
3:

randomize;
xy:=random(length(MeinRecordArray));
MeinRecordArray[xy].Irgendwas:='';					

1:

Verbessern könnte man es zum Beispiel, indem man die Zufallszahl aus der Uhrzeit erzeugt, denke ich					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Const  
 Count = 10;  
Var  
 A : Array[0..Count-1] of Integer;  
 I, J, T : Integer;  
begin  
 For I := 0 to Count-1 do  
  A[I] := I;  
 For I := 0 to Count-1 do  
 begin  
  J := I+random(Count-I);  
  T := A[J];  
  A[J] := A[I];  
  A[I] := T;  
 end;  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Function NthPermutation (aString : String; aCount : Integer) : String;
Var
  d : Array Of Integer;
  g, i, n : Integer;

Begin
  n := Length (aString);
  setlength (d, n);
  d[1] := 1;
  For i := 2 to n - 1 do d[i] := i * d[i-1];
  Result := '';
  for i := n-1 downto 1 do begin
    g := (aCount div d[i]) + 1;
    Result  := Result  + aString[g];
    delete (aString, g, 1);
    aCount := aCount mod d[i];
    End;
  Result := Result  + aString;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure Randomize; inline;
{$IFDEF MSWINDOWS}
var
  Counter, Ticks: Int64;
begin
  if QueryPerformanceCounter(Counter) then
    RandSeed := Counter
  else
  begin
    Ticks := GetTickCount;
    RandSeed := Ticks * 2 - (Ticks and 1);
  end;
end;