Array + Array?

Prøv at kigge på SetLength(Array, 200);
eller hvor stort dit array skal være

Stoney

Stoney -> Jeg kender godt til både SetLength(), Length() og High(), det er dog ikke nogen af dem jeg søger (Og når vi taler om "søger", så har jeg naturligvis søgt her på E efter dynamisk array, og der bliver SetLength, som jeg jo kender i forvejen, nævnt alt for mange gange...).

Derimod søger jeg en nem måde at gøre følgende:

Array1 := Array2 + Array3;

Følger med :-)

Du kommer ikke uden om at skrive lidt kode - Pascals syntax tillader ganske enkelt ikke Array1 = Array2 + Array3.

Dette lille quick and dirty program viser en mulig løsning:
unit uaddarray;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

type
  anyarray = array of integer;

function addarray(a, b: array of integer): anyarray;
var
  i, n: integer;
begin
  if length(a)<length(b) then n := length(a) else n := length(b);
  setlength(result, n);
  for i := 0 to n-1 do result[i] := a[i]+b[i];
end;

var
  a: array[1..5] of integer = (4,8,3,7,9);
  b: array[0..3] of integer = (2,7,1,8);

procedure test;
var
  i: integer;
  y: anyarray;
begin
  y := addarray(a,b);
  form1.listbox1.items.add(inttostr(length(y)));
  for i := 0 to length(y)-1 do
  form1.listbox1.items.add(format('y[%d]=%d', [i, y[i]]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test;
end;

end.

tauron -> Jeg tænker mere på noget som
  String1 := String2 + String3,
ikke som
  Integer1 := Integer2 + Integer3;

Som jeg også skrev, kan jeg sagtens selv skrive en funktion:

function AddArray(a, b: TNoteArray): TNoteArray;
var
  I := Integer;
begin
  Result := a;
  SetLength(Result, Length(Result) + Length(b));
  for I := Length(a) to High(Result) do
    Result[I] := b[I - High(a)];
end;

(Funktionen er dog ikke testet, men bør virke...)

Rettelse:
var
  I: Integer;

Hvis det er Operator Overloading så kan det vist ikke lade sig gøre :-(

http://www.oreilly.com/catalog/delphi/chapter/ch02.html

Fejlen jeg får skrev jeg i mit spørgsmål:
"Operator not applicable to this operand type"...

afhængig af hvor meget du skal bruge din type kunne du overveje at lave din record om til en class med div. util funtioner, eller evt. kigge på delphi's TCustomVariantType

/Martin

Lukker, det er åbenbart ikke muligt at gøre det jeg vil med et dynamisk array.
Jeg har valgt at bruge TList i stedet.