längeren Codeblock als Text statt als Unter-Procedure

[enigma]

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!

[Andreas13]

Hallo Enigma,
ich bin mir nicht sicher, ob ich Dich richtig verstanden habe, was Du mit „Text“ meinst.
Vielleicht meinst Du, einen gemeinsamen CodeTeil in einer Textdatei z.B. CodeTeil.inc auszulagern und mittels Include-Anweisung {$i CodeTeil.inc} einzufügen?

Du solltest auf jeden Fall die With -Anweisungen weglassen und stattdessen qualifizierte Bezeichner verwenden, um Verwechslungen zu vermeiden und das Debuggen zu ermöglichen.
Gruß, Andreas

[bcvs]

Ich vermute mal, du willst so etwas machen:

Delphi-Quellcode:

procedure DoSomethingWithArray(recordX:TMyRecord);
begin
  recordX.x:=1;
  recordX.blabla:=irgendetwas;
  ...
end;

procedure Test;
begin
  if begingung1 then
    DoSomethingWithArray(array1.recordx)
  else if bedingung2 then begin   
    DoSomethingWithArray(array2.recordx);
end;

Und außerdem: "Klappt nicht" ist keine Fehlerbeschreibung. Was passiert wann (oder auch nicht)?

[enigma]

Vielen Dank für eure Tipps!
Manchmal hat man halt Tomaten auf den Augen

[enigma]

Hallo Andreas,

verstehe ich dich richtig?
Meinst du bei jedem Attribut den Qualifier, z.B. RecordX vorne dran zu stellen?

[Andreas13]

Zitat von enigma:

Meinst du bei jedem Attribut den Qualifier, z.B. RecordX vorne dran zu stellen?

ja, genau so, Enigma.
z.B.RecordX.x := 1; etc.
Gruß, Andreas