Kan jeg sende et array som parameter`?

Ja - selvfølgelig an du det.

Lav det som:

type
  TColor10000 = array [1..10000] of TColor;

...

function TjuHej(test : TColor10000) : integer;

Hmmm kan ikke lige få det til at virke.. Det er forresten en constructor jeg skal bruge det på og ikke en funktion?

Lige meget, fik det til at virke!!

Tak

Du erklærer den så:

var
  x : TColor10000;

og kalder med:

thuhej(x)

- det burde ikke betyde noget at det er en constructor.

Men er det muligt at sende et array af variabel størrelse??

Ja.

Du erklærer den bare som array uden dimensioner og så kan du kalde
low og high til at finde grænserne på arrayet.

Kan du give et eksempel??

Er det OK at jeg genbruger et eksempel ?

Jeg lavede det her eksempel til soetering af 2 dimensionelt array:

program MultiDimSort;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  mda = array of array of integer;

procedure init(var a : mda; n, m : integer);

var
  i, j : integer;

begin
  randomize;
  setlength(a, n);
  for i := low(a) to high(a) do begin
      setlength(a[i], m);
      for j := low(a[i]) to high(a[i]) do begin
        a[i,j] := random(100);
      end;
  end;
end;

procedure print(var a : mda);

var
  i, j : integer;

begin
  for i := low(a) to high(a) do begin
      for j := low(a[i]) to high(a[i]) do begin
        write(' ', a[i,j]);
      end;
      writeln;
  end;
end;

procedure sort(var a : mda);

var
  i, j, k, tmp : integer;

begin
  for i := low(a) to (high(a) - 1) do begin
      for j := (i + 1) to high(a) do begin
        if a[i,3] > a[j,3] then begin
            for k := low(a[i]) to high(a[i]) do begin
              tmp := a[i,k];
              a[i,k] := a[j,k];
              a[j,k] := tmp;
            end;
        end;
      end;
  end;
end;

var
  a : mda;

begin
  init(a, 10, 5);
  writeln('before');
  print(a);
  sort(a);
  writeln('after');
  print(a);
end.

OK ?

Det var perfekt :) Tak for det.. Undskyld at jeg glemte at give point!