längerer Codeblock für 2 Arrays mit identischem Record

[Rollo62]

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;