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.