Array ohne typ, aber wie ?

[Union]

Zitat von mimi:

Hallo,
ich habe mehre array unterschiedlichen typs und nun möchte ich gerne eine funktion haben die mit allen typen was anfangen kann in etwa so:

procedure DeleteArrayItem(Liste: array of) // aber das geht ja leider nicht

hat jemmand eine idee ???

meine derzeitige delete funktion sieht so aus:

Delphi-Quellcode:

procedure TBO.DeleteBall(Index:Integer);
var
  i:Integer;
begin
  if Length(ball) -1 >= 1 then begin
    for i:=Index to HIGH(BALL) do
      BALL[i]:=BALL[i+1];
    SetLength(BALL,Length(ball)-1 );
  end;
end;

Machs mit Varianten-Arrays

Delphi-Quellcode:

// Deklaration
var Ball : Array of Variant;

// Konstante Zuweisung
Ball := VarArrayOf([1, "Zwei", now]);

// Abfrage der Werte
if VarType(Ball[i]) = varString then...

Ansonsten sind das normale dynamische Arrays (SetLengtht usw.) Schau mal in der Hilfe unter dem Stichwort VarType nach, da bekommst Du alles aufgelistet.