Dynamische Mehrdimensionalige Arrays

[xineohp]

moin,

würde ich wie folgt machen:

Delphi-Quellcode:

type
  Eintrag = record
    key,
    val: string;
  end;
var
  arr: array of Eintrag;
  i: integer;
begin
  setlength(arr, 4);

  arr[0].key := 'aa';
  arr[0].val := '11';
  // ...

  For i:=0 to high(arr) do
    showmessage( arr[0].key +' --> '+ arr[0].val );
end;

alternativ ginge auch:

Delphi-Quellcode:

var
  arr: array of array[1..2] of string;
  i: integer;
begin
begin
  setlength(arr, 4);

  arr[0,1] := 'aa';
  arr[0,2] := '11';
  // ...

  For i:=0 to high(arr) do
    showmessage( arr[0,1]+' --> '+ arr[0,2] );
end;

Die direkte Zuweisung funktioniert afaik nur bei statischen arrays:

Delphi-Quellcode:

var
  arr: array[0..3,1..2] of string = (('aa','11'),('bb','22'),('cc','33'),('dd','44'));
  i: integer;
begin
  For i:=0 to high(arr) do
    showmessage( arr[0,1]+' --> '+ arr[0,2] );
end;