Inkompatible Typen: 'Array' und 'dynamic array'

[marabu]

Hi,

Zitat von Borland:

function Copy(S; Index, Count: Integer): array;

Ich verwende das hier:

Delphi-Quellcode:

procedure Shuffle(var dsa: array of string);
var
  i, iRandom: integer;
  s: string;
begin
  for i := 1 to High(dsa) do begin
    iRandom := Random(i);
    s := dsa[Pred(i)];
    dsa[Pred(i)] := dsa[iRandom];
    dsa[iRandom] := s;
  end;
end;

Grüße vom marabu