Hallo,
eine kurze Frage:
In meinem Programm liegen 2 Arrays verschiedener Struktur mit einem identischen Record vor.
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 Versuch, in procedure Test eine Extra-Procedure Test2
zu erstellen, klappt 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;
Meine Idee ist, den gesamten
Text der Unter-Procedure als Textblock zu erstellen.
Meine Frage: Wie kann ich so einen Textblock erstellen oder habt ihr eine andere Idee?
Ich freue mich über jeden Typ - vielen Dank!