Record über mehrere Prozeduren hinweg übergeben

[himitsu]

Zitat:

dass beim Kompilieren Stellen als Fehler markiert wurden

Diese Anzeige hat mit dem entgültigen Compilat nichts zu tun. Das Error Insight arbeitet unabhängig,
aber da es ab und an schon seit Jahrzehnten nicht ganz zuverlässig funktioniert, kann man es auch in Tools>Einstellungen deaktivieren, wenn es Einen mehr stört, als hilt.

Statt "nur" Compilieren sollte man bei Problemen auch "Neu Erstellen" (Build) und Bereinigen benutzen.

[günni0]

Zitat:

Statt "nur" Compilieren sollte man bei Problemen auch "Neu Erstellen" (Build) und Bereinigen benutzen.

[KodeZwerg]

Delphi-Quellcode:

TYPE
 TDATARecord = RECORD
  A, B: Integer;
 END;

function IsDataOK(var aDataRecord: TDataRecord): Boolean;
begin
 if aDataRecord.A < 0 then aDataRecord.A := 0;
 Result := False; // es sollte ja eh immer False rauskommen, oder?
end;

procedure ProcA(aDataRecord: TDataRecord);
begin
 aDataRecord.A := -1; // zur Sicherheit nochmal neu bespielen mit falschem wert
 if not IsDataOK(aDataRecord) then
  Exit; // wozu auch immer du hier stehen magst.
 ShowMessage( IntToStr(aDataRecord.A) ); // ist immer 0.
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 DataRecord: TDataRecord;
begin
 DataRecord.A := -1;
 DataRecord.B := 2;
 ProcA(DataRecord);
end;

Ich hatte es nachgebastelt ohne auf Fehler zu stossen. Hat sich ja nun eh erübrigt denk ich mal.

[günni0]

Zitat:

// wozu auch immer du hier stehen magst.

Wenn es Fehler bei der Überpfüfung der Daten in IsDataOK gibt, wird False zurückgegeben. Dann soll anschließend kein Constructor ausgeführt werden der bei mir steht.

[Rollo62]

<OT>

Zitat:

Statt "nur" Compilieren sollte man bei Problemen auch "Neu Erstellen" (Build) und Bereinigen benutzen.

Kann ich nur bestätigen, ich lösche sogar sehr oft das komplette Output-Verzeichnis

Das mache ich seit Jahren schon IMMER, IMMER, IMMER, rein compilieren fast nie.
Ich bedauere die mit zig. Mio. Code, bei denen das Kompilieren 15 Minuten dauert.

Bin wohl damals zu oft ins "compile" Fettnäpfchen getreten

</OT>

Rollo