Beliebiges Array an function/procedure übergeben

[maststef]

Hi@all

Wie kann ich ein beliebige Array an function/procedure übergeben?
Ein Beispiel:

Code:

procedure eins(var arr: array of integer);

Soweit bin ich schon, das Problem dabei: Es kann nur ein Integer-Array übergeben werden, aber zum Beispiel kein array of LongInt oder array of char. Ich bräuchte aber eine procedure, die alle Arten von Arrays erstmal aufnehmen kann und dann speziell nach Art des Arrays entscheidet, was zu tun ist. Weiß jemand, wie das geht?

Die einzige Möglichkeit, die mir eingefallen ist, wäre mehrere override-procedures zu schrieben, aber das kann ja nicht der Sinn der Sache sein...?!?!

Schonmal Danke im Vorraus für die Antworten.

[Jan]

Hallo maststef,

Delphi-Quellcode:

Procedure tform1.copyarray(inarray:array of tstringlist; var outarray : array of tstringlist);
var
     i, j : integer;
begin
  for i:=0 to length(inarray)-1 do
  begin
    if inarray[i]<>nil then
    begin
      outarray[i]:=tstringlist.create;
       for j:=0 to inarray[i].Count-1 do
      begin
         outarray[i].Add(inarray[i][j]);
      end;
    end;
  end;
end;

funktioniert bei mir.
(macht nichts anderes als einen array of tstringlist zu kopieren.)
Gruß
Jan

[maststef]

Danke für die schnelle Antwort.

Ich hab's noch nicht probiert, aber muss da nicht auch ein Array of TStringList übergeben werden? Wenn man an die procedure nun für inarray ein Integer-Array übergibt, müsste doch ein Fehler kommen?!?!

[Jan]

öhm ja hab dich falsch verstanden, du willst also, dass die Procedure selbstständig herausfindet um was für einen array es sich handelt?
Ich glaube nicht, dass das geht, lasse mich da aber gerne eines besseren belehren.
Gruß
Jan

[maststef]

Richtig! Die function/procedure soll erstmal jedes Array eines beliebigen Typs aufnehmen können und dann entscheiden was gemacht wird (zum Beispiel mit if-Abfragen).

Zum Beispiel, warum das (eigentlich) wichtig ist:
Eine Routine zum Sortieren eines Arrays mit Zahlen. Wenn man nun eine procedure mit einem Integer-Array als Parameter deklariert, kann die procedure zwar Integer-Arrays sortieren, aber noch lange keine SmallInt-Arrays, keine Single-Arrays usw....

[Luckie]

Ob SmallInt oder Integer sollte keinen Unterschied machen.

[himitsu]

Es ist auf jedan Fall möglich und hat glaube etwas mit offenen Parametern zu tun. Müsste da auch irrgend wo den Code haben und werd' demnächst mal danach suchen. Kann aber ein weilchen dauern, da das schon mindestens ein Jahr her ist und ich keine Ahnung hab' wo das stehen könnte und ob er überhaupt noch da ist.
Hatte ihn wahrscheinlich mal in der Delphi-Hilfe (Delphi 4 Standard) gefunden, falls einer dort mal nachseh'n will.

Also gib nicht auf.

[maststef]

@Lucki
Hatte ich mir erst auch gedacht, aber es hat nicht funktioniert: "Inkompatible Typen".

@himitsu
Ja, werde gleich mal in der Online-Hilfe schauen (auch wenn ich bezweifle, dass dort sowas komplexes drinsteht )...

edit:
ich habe's!
Die Lösung: Variante Array-Parameter!
procedure (var a: array of const); Stand tatsächlich in der Online-Hilfe.

thx@all

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[himitsu]

Hatte mich jetzt irrgend wie bei Array of Variant verlaufen, aber das mit dem Const war das was ich auch meinte.

Die Hilfe ist schon mal ganz nett, vor allem die vielen versteckten und leider schwer zugänglichen Einträge.