Rückgabe Array über Funktion

[punker-lili]

Guten Morgen!
Ich möchte eine Funktion haben, die mir ein Array of integer zurückgibt. Wenn ich das normal hinschreibe, fibt Delphi folgende Fehlermeldung zurück: "Bezeichner erwartet, aber ARRAY gefunden."
-->

Delphi-Quellcode:

function ableiten_koeff(gesamte:array of string;koff:array of integer;var ableit_fkt:array of string):array of integer;

Wenn ich einen neuen Typ deklariere, meckert er auch rum.

Delphi-Quellcode:

function ableiten_koeff(gesamte:array of string;koff:array of integer;var ableit_fkt:array of string):array of integer;
var abl_koeff,i,exp:integer;
begin
for i:=1 to length(koff)-1 do
begin
 exp:=exponent(gesamte[i]);
 abl_koeff:=exp*koff[i];
 if exp > 2 then
  ableit_fkt[i]:=inttostr(abl_koeff)+'x^'+inttostr(exp-1)
 else
  ableit_fkt[i]:=inttostr(abl_koeff);
[u][b] ableiten_koeff[i]:=abl_koeff;[/b][/u]
end;
end;

Er compiliert zwar das Programm, aber er gibt einen Zugriffsfehler aus.

Wie kann ich das Problem beheben?

MfG punkerlili

[Matze]

Guten Morgen

Zitat:

Zitat von punker-lili

Wenn ich einen neuen Typ deklariere [...]

Dann mache es doch auch. ;)

Delphi-Quellcode:

type
  TMyArrayI: array of Integer;
  TMyArrayS: array of string;

var
  MyArrayI: TMyArrayI;
  MyArrayS: TMyArrayS;

// ...

function ableiten_koeff(gesamte: TMyArrayS; koff: TMyArrayI; var ableit_fkt: TMyArrayS): TMyArrayI;

Grüße, Matze

[ChrisE]

Hallo,

Und es gibt auch bereits fertige deklarationen für diese dynamischen Arrays in der Unit Types

Delphi-Quellcode:

TIntegerDynArray      = array of Integer;
{$EXTERNALSYM TIntegerDynArray}
//...
TStringDynArray       = array of string;
{$EXTERNALSYM TStringDynArray}

Dadurch kann man sich die Deklaration sparen und verwendet über versch. Projekte hinweg die selben Typen. Allerdings weiß ich nicht seit welcher Delphiversion es diese Typen gibt.

Gruß, Chris

[Hawkeye219]

Hallo punkerlili,

du kannst die Zugriffsverletzung verhindern, indem du das dynamische Rückgabe-Array geeignet dimensionierst:

Delphi-Quellcode:

begin
  SetLength (Result, Length(koeff));
[...]
end;

Gruß Hawkeye