Dynamische Arrays Parameterübergabe

martin300 · Beiträge: 186 Erhaltene Danke: 2

Die Funktion "maches" soll als Ergebnis ein dynamisches Array liefern. Die Anzahl der Einträge wird in der Funktion dynamisch festgelegt.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

type
  ValueArray = Array of String;

  TForm37 = class(TForm)
  private
    { Private-Deklarationen }
  public
    procedure callmaches;
    function maches():ValueArray;
    { Public-Deklarationen }
  end;

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

function TForm37.maches: ValueArray;
begin
  setLength(ValueArray,1);
  ValueArray[0] := 'Eintrag0';
  result:= ValueArray;
end;

Mein Problem liegt in der Festlegung der Länge von Array "ValueArray". Es würde funktionieren, wenn die Definition innerhalb der Funktion steht, nur so klappt die Rückgabe nicht.

dummzeuch · Verfasst: Sa 04.04.09 12:23

Das sollte funktionieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

function TForm37.maches: ValueArray;
begin
  setLength(Result,1);
  Result[0] := 'Eintrag0';
end;

twm

martin300 · Beiträge: 186 Erhaltene Danke: 2

Zitat:

Die Funktion "maches" soll als Ergebnis ein dynamisches Array liefern. Die Anzahl der Einträge wird in der Funktion dynamisch festgelegt.

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

dummzeuch hat folgendes geschrieben :

Das sollte funktionieren:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

function TForm37.maches: ValueArray;
begin
  setLength(Result,1);
  Result[0] := 'Eintrag0';
end;

martin300 hat folgendes geschrieben :

Mein Problem liegt in der Festlegung der Länge von Array "ValueArray". Es würde funktionieren, wenn die Definition innerhalb der Funktion steht, nur so klappt die Rückgabe nicht.

Falsch, du versuchst einem Datentyp Werte zuzuweisen. Du kannst nur Variablen Werte zuweisen. Kannst ja auch nicht schreiben Integer := 5;

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme