Overload und Arrays

[x000x]

Moin moin,

das sollte eigentlich so funktionieren:

Delphi-Quellcode:

//..

type
  TStrArray = array of string;
  TMultiStrArray = array of array of string;

//..
  private
    { Private-Deklarationen }
    procedure DoTable(border, width: integer; value: TStrArray); overload;  //normale Tabelle
    procedure DoTable(border, width: integer; value: TMultiStrArray); overload;  //2 Dimensionale, 2-spaltige Tabelle

//..

procedure TForm1.DoTable(border, width: integer; value: TStrArray);
var i : Integer;
begin
   for i:= Low(value) to High(value) do begin
      //
      value[i] := '';
   end;
end;

procedure TForm1.DoTable(border, width: integer; value: TMultiStrArray);
var i,j : Integer;
begin
   for i:= Low(value) to High(value) do begin
      for j:= Low(value[i]) to High(value[i]) do begin
         value[i][j] := '';
         //
      end;
   end;
end;

//..