Gemeinsamer Array-typ?

[malo]

Hi!

Ich suche eine Möglichkeit, einen beliebigen Array-Typ als Parameter einer Funktion zu erwarten. Diese soll das Array ab einem bestimmten Index "um eins aufrücken". Ich will das jedoch ziemlich allgemein halten, und möglichst ohne Überladungen. Die sind zuviel Tipparbeit :?

[Waldteufel]

Hi.

Delphi-Quellcode:

function aufruecken(x : variant, wieviel : integer = 1) : variant;
var
  i : integer;
  y : variant;
begin
  y := VarArrayCreate([0, length(x) + wieviel], VarType(x));
  for i := length(x) + wieviel downto 1 do
    y[i] := x[i - wieviel];
end;

So müsste es gehen...

[Dani]

Hi!

array of const
http://community.borland.com/article...,15582,00.html

[malo]

Zitat:

Zitat von Waldteufel

Hi.

Delphi-Quellcode:

function aufruecken(x : variant, wieviel : integer = 1) : variant;
var
  i : integer;
  y : variant;
begin
  y := VarArrayCreate([0, length(x) + wieviel], VarType(x));
  for i := length(x) + wieviel downto 1 do
    y[i] := x[i - wieviel];
end;

So müsste es gehen...

Danke... aber es sollte eigentlich eine array-variable übergeben und bearbeitet werden. Es sollte keins neu erstellt werden, das bringt mir reichlich wenig :?

[malo]

Zitat:

Zitat von Dani

Hi!

array of const
http://community.borland.com/article...,15582,00.html

Bei folgendem Code kommt aber die fehlermeldung "inkompatible Typen":

Delphi-Quellcode:

procedure test(a: array of const);
begin
  showMessage('test');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: array[0..1] of string;
begin
  a[0] := 'test';
  test(a);
end;

[shmia]

Zitat:

Zitat von malo

Ich suche eine Möglichkeit, einen beliebigen Array-Typ als Parameter einer Funktion zu erwarten. Diese soll das Array ab einem bestimmten Index "um eins aufrücken". Ich will das jedoch ziemlich allgemein halten, und möglichst ohne Überladungen. Die sind zuviel Tipparbeit :?

Es gibt min. 4 Arten, wie man Arrays als Parameter übergeben kann:
1.) "normale" Array-Parameter für statische Arrays
2.) offene Array-Parameter für dynamische Arrays
3.) variante offene Array-Parameter
4.) Arrays im Datentyp Variant abgebildet
Die 4 Arten sind nicht miteinander kompatibel!
Die Idee "eine Procedure für Alles" kannst du also gleich begraben.

Offene Array-Parameter sind an einen Datentyp gebunden. Du musst also für jeden Datentyp eine eigene
Prozedure schreiben.

Variante offene Array-Parameter haben einen grossen Overhead; bei sehr grossen Arrays sollte die nicht verwenden.
Dies gilt ebenso für Nummer 4.).

Es gäbe da noch die Funktion Slice, die Teile von dynamischen Arrays liefert.
Aber da ist wohl viel Compiler-Magic dabei; ich habe den Sourcecode dazu nicht gefunden.

[malo]

Zitat:

Zitat von shmia

Die Idee "eine Procedure für Alles" kannst du also gleich begraben.

Schade... also, grundsätzlich brauche ich auch nur einen Array-Typ für meine Zwecke. Ich wollte die Prozedur nur verallgemeinern, damit ich die nich umschreiben muss, falls ich einen anderen Array-Typ brauche. Wenn das nicht geht, ist das halt pech. ;)

[jim_raynor]

Also zum Löschen hab ich eine ultimative Funktion geschrieben. Such mal nach DeleteArray in der Codelib. Eventuell kannst du es an deine Bedürfnisse anpassen, allerdings wird dort auch bissle Assembler verwendet.