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

[enigma]

Hallo,

ich habe ein Problem mit 2 Arrays verschiedener Struktur,
die jedoch ein identisches Record beinhalten.
Es gibt einen längeren Codeblock mit den Variablen des
identischen Records.

Die Schwierigkeit besteht darin, Array1 und Array2 mit dem
"with" Kommando zu platzieren.

Folgendes klappt nicht:

Code:

procedure Test;
begin
  if begingung1 then
    with array1 do begin 
  else if bedingung2 then begin   
    with array2 do begin

    with recordX do begin      
     x := 1;  //x ist im recordX von array1 und array2 identisch
     //es folgt noch ein längerer Codeblock mit Variablen,
     //die im recordX beider Arrays identisch sind

end;

Ein weiterer Versuch, in procedure Test eine Extra-Procedure Test2
zu erstellen, klappt so auch nicht, da für recordX entweder array1 oder
array2 erforderlich ist.

Code:

procedure Test;
begin
  procedure Test2;   
    with recordX do begin      
     x := 1;  //x ist im recordX von array1 und array2 identisch
     //es folgt noch ein längerer Codeblock mit Variablen,
     //die im recordX beider Arrays identisch sind
  end;     
end;

Ich freue mich über jeden Typ - vielen Dank!