[gelöst] Finden oder Übergeben mehrdimensionaler Arrays in/an eine Procedure

[TiGü]

?

Delphi-Quellcode:

program Project6;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

  const
    Array1 : array[0..1] of string = ('asdf', 'qwer');
    Array2 : array[0..2] of string = ('asdf', 'qwer', 'jklö');
    Array3 : array[0..3] of string = ('asdf', 'qwer', 'jklö', 'uiop');

procedure DoStuffWithAnArray(IrgendeinArray: array of string);
var
  str: string;
begin
    for str in IrgendeinArray do
    begin
        Writeln(str);
    end;
    Writeln;
end;

begin
  try
    DoStuffWithAnArray(Array1);
    DoStuffWithAnArray(Array2);
    DoStuffWithAnArray(Array3);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.