Delphi-Quellcode:
// Auch nicht Optimal, aber zumindest sollte es funktionieren
procedure DoTest( const AArr : TXyzArray);
begin
if Length( AArr ) then
begin
//Machwas (Was genau Du möchtest verstehe ich auch noch nicht )
end;
end;
procedure Test;
begin
if begingung1 then
DoTest( array1 )
else if bedingung2 then
DoTest( array2 );
end;
Wenn ich ihn richtig verstanden habe, hat er zwei "array of record" mit unterschiedlichen Arrays (wird vermutlich nicht bloß die Länge sein), aber gleichem Record.
Etwa so:
Delphi-Quellcode:
type
TGartenFruechte = (gfApfel, gfBirne, gfPflaume);
TExotischeFruechte = (efBanane, efKiwi, efMango, efPapaya);
TMyRecord = record
[...] viele Felder
end;
TGartenArray = array [TGartenFruechte] of TMyRecord;
TExoticArray = array [TExotischeFruechte] of TMyRecord;
Aktuell hat er vermutlich pro Array eine Bearbeitungsprozedur, wobei der Part der Bearbeitung des Records in beiden der gleiche ist. Die beiden Prozeduren will er jetzt zu
einer zusammenfassen. Das geht nicht. Was aber geht, wäre die Bearbeitung des Records in eine eigene Prozedur verlegen (oder bei neuerem Delphi eine Recordmethode dafür anzulegen) - und nicht etwa in ein Include auszulagern, wie in einem anderen Forenbeitrag gefragt.