Variable Übergabeparameter

[xZise]

Ich wollte eine folgende Funktion schreiben:

Delphi-Quellcode:

procedure changeItemsnum(vArray : ??? ; vItems : Integer);
begin
  SetLength(vArray, Length(vArray) + vItems);
end;

Was muss jetzt ansitelle von "vArray", um eben alle arrays zu benutzen? Also integerarrays, stringarrays, oder andere, ohne eine eigene Methode zu schreiben?

[shubbi]

Das geht meines Wissens nach nicht.

[Meflin]

gibts da nicht sowas wie array of const :gruebel:

[shubbi]

Array of const bedeuted, dass du der Funktion ein Array von verschiedenen Typen übergeben kannst (z.B. bei Format(f: string; arg: array of const) )
Das ist so etwas ähnliches wie "..." in C (z.B. printf(char *fmt, ...) ) und ist nicht mit einem normalen array zu verwechseln

[mkinzler]

Array of Variant
TVarArray
TVarRec

[Cöster]

Du könntest dir einen Typ TArray basteln, von dem du dann mehrere Typen ableleitest TIntArray, TStringArray, TCharArray usw.

[Flare]

Man könnte doch auch einfach die Funktion überladen, oder spricht da gerade etwas dagegen?


Flare

[Neutral General]

Naja da spricht dagegen das man viel zu tun hätte und das man bei jedem neuen Array Typ noch ne Funktion mehr bauen müsste...

Zitat:

Zitat von mkinzler

Array of Variant
TVarArray
TVarRec

Habs mal ausprobiert...

TVarArray und TVarRec funktioniert nicht und Array of Variant würde bei Objekten nicht funktionieren :|

[Meflin]

Zitat:

Zitat von Neutral General

Naja da spricht dagegen das man viel zu tun hätte und das man bei jedem neuen Array Typ noch ne Funktion mehr bauen müsste...

So musst du eben innerhalb einer Funktion die Unterscheidung treffen, wo ist der Unterschied? Im Grund sind überladene Funktionen ja genau für so etwas gedacht... im Zweifelsfall implementiert man eben die Funktionalität nur in einer Funktion und in den restlichen konvertiert man in das Format dieser einen Funktion und übergibt die Werte an diese...

[xZise]

So :) Endlich bin ich mal dazu gekommen, aber es funktioniert nicht :

Delphi-Quellcode:

procedure Insert(const AData; AArray : array of const; const AIndex : Cardinal);
var
  i: Cardinal;
begin
  if (AIndex <= Length(AArray)) then
  begin
    SetLength(AArray, Length(AArray) + 1);
    for i := High(AArray) downto AIndex + 1 do
      AArray[i] := AArray[i - 1];
    AArray[AIndex] := AData;
  end;
end;

Zitat:

Inkompatible Typen
Inkompatible Typen: 'TVarRec' und 'procedure, untyped pointer or untyped parameter'