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'

[Dax]

Zitat:

Zitat von xZise

Ich wollte eine folgende Funktion schreiben:

Delphi-Quellcode:

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

Das ist so einfach nicht möglich. Du müsstest in diesem Fall einen Pointer auf dein Array liefern, die Typeinfos, die zum Array gehören, und die Zahl der Elemente. Mit const-Parametern geht es schon mal garnicht, da diese nicht verändert werden können.

Am besten siehst du dir mal die RTL-Quellen von SetLength an, damit du siehst, wie schwer sowas ist ;)

[Khabarakh]

@xZise: Hm, was hast du denn gegen T(Object)List ;) ?
Du könntest natürlich auf Tiburón warten und schauen, ob es dann mit dessen Generics zu lösen ist :mrgreen: (was ich aber nicht erwarte) - aber ein Array ist hier einfach der falsche Ansatz, eine Liste dagegen dafür geschaffen.

[xZise]

Zitat:

Zitat von Khabarakh

Du könntest natürlich auf Tiburón warten und schauen, ob es dann mit dessen Generics zu lösen ist :mrgreen: (was ich aber nicht erwarte)

Würden jbgs Generics auch in TD-E laufen hätte ich das Problem nicht :(

Zitat:

Zitat von Khabarakh

aber ein Array ist hier einfach der falsche Ansatz, eine Liste dagegen dafür geschaffen.

Weil, ich dann im Hintergrund eine Liste halten müsste. Und ich denke Arrays sind einfacher zu handeln ;) Bis eben auf das hinzufügen, entfernen, einfügen von informationen. Da versagt es ^^ Vielleicht sieht das CodeGear eine möglichkeit (Variable Arrays zu übergeben & editieren) :)

[Dax]

Zitat:

Zitat von xZise

Weil, ich dann im Hintergrund eine Liste halten müsste.

Welche Eigenschaften von Arrays wiegen die Vorteile einer Liste wie einfaches Einfügen und Entfernen von Elementen, Iteratoren usw. wieder auf?