Array an Function / Procedure übergeben

[Matze]

Hi, bittesehr.

Zitat von moggaz:

Ist dies dann

Delphi-Quellcode:

type
  tmyarray = array of string;

das selbe Prinzip ? Kann ja sein das das mal dynamisch sein muss... *G*

Ja das geht analog:

Delphi-Quellcode:

type
  TMyArray = array of string;

var
  test1, test2, test3: TMyArray;

Beim Füllen des Arrays SetLength nicht vergessen (Beispiel):

Delphi-Quellcode:

// Hier eine Länge von 2
SetLength(test1, 2);

test1[0] := 'Hallo';
test1[1] := 'Tschüss';

Eine mögliche Funktion wäre dann diese:

Delphi-Quellcode:

function Output(MyArray: TMyArray): string;
var
  i: Integer;
  MyResult: string;
begin
  MyResult := '';

  // Alle Einträge durchgehen
  for i := Low(MyArray) to High(MyArray) do
  begin
    MyResult := MyResult + ' ' + MyArray[i];
  end;

  Result := MyResult;