Funktion mit unendlicher Parameterzahl

[egal]

Hallo, ich muss eine funktion schreiben, wo die Parameterzahl ein Benutzer festlegt, quasi so:
function test(index1, index2,..,indexn:integer): integer
Wie kann man das realisieren? Danke!

[sakura]

Wie wäre es mit einem Array als Parameter

......

[LarsMiddendorf]

Code:

function test(index:array of integer): integer ;

Und dann mit z.B. mit test([1,2,3]) aufrufen.

[Sebastian Nintemann]

Hallo egal!

Die DP-Suche führt dich zu diesem threat (habs nur noch gefunden weil ich wusste, dass es um concat ging). Dort wird beschrieben warum es nicht geht und wie man das Problem alternativ lösen kann.
Hoffe das hilft dir!

Viele Grüße, Sebastian

[egal]

das wäre eine Möglichkeit. Die Funktion soll eigentlich so aussehen:

function test (cStr1:string,index1:integer,cStr2:string,index2:i nteger
,..., cStrn:string,indexn:integer, feldNr:integer): integer;

Und der Benutzer kann so z.B. eingeben:

test(a,1, b,2, c,3,...,100);

Wenn ich jetzt die Arrays benutze, muss ich die Function so deklarieren

test(cStr: array of String, index: array of integer,feldNr:integer);

oder doch irgendwie anders?

[alcaeus]

Hi egal,

du kannst Arrays verwenden, oder wir können dir erklären warum du es tun musst
Falls du dir das andere Thema durchgelesen hast, dann solltest du ja wissen, dass so eine Funktion nicht möglich ist.

Greetz
alcaeus

[sakura]

Dann mache folgendes:

Delphi-Quellcode:

type
  TValue = record
    StrValue: String;
    IntValue: Integer;
  end;
  TValues = array of TValue;

[...]

procedure Test(Values: TValues);
var
  I: Integer;
begin
  for Low(Values) to High(Values) do
  begin
    // for each value do...
    [...]
  end;
end;

......

[static_cast]

Hi

könnte man nicht
procedure foo(bar:array of variant); nehmen? kann man doch alles übergeben was man will!?

[sakura]

Zitat von static_cast:

könnte man nicht
procedure foo(bar:array of variant); nehmen? kann man doch alles übergeben was man will!?

Ja, aber Variants sind aufgrund ihrer varianten Natur sehr langsam.

......

[egal]

Alles klar, dann nehme ich am besten records.
Allen vielen, vielen Dank für schnelle und umfangsreiche Hilfe!