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!