Record über mehrere Prozeduren hinweg übergeben

[himitsu]

Zitat von günni0:

Wo ist mein Fehler?

Schau dir nochmal genau an, auf was du zugreifst.
aDataRecord

Der Parameter aDataRecord ist natürlich eine Kopie.
Du solltest dir dringend überlegen, wieso überhaupt in ProcA auf das "globale?" DataRecord zugergriffen werden kann.

[add]
Und der Name "IsDataOK" ist natürlich komplett falsch, denn da wird nicht "nur" geprüft, sondern auch verändert.

[günni0]

Zitat:

Schau dir nochmal genau an, auf was du zugreifst.

Das war ein Tippfehler hier im Forum.

Im Code steht natürlich ein A davor. Habe es oben korrigiert.

Das DataRecord ist nicht global. Es ist in Procedure 1 deklariert.

Zitat:

Und der Name "IsDataOK" ist natürlich komplett falsch, denn da wird nicht "nur" geprüft, sondern auch verändert.

Dummy-Code!

[himitsu]

Hmmm, wenn es wirklich so wie oben ist, dann seh ich keinen weiteren Fehler und es funktioniert somit.
Also nur auf diese Variable bezogen. IF mit Prozedur steht ja nicht zu Frage

Ansonsten wird nur innerhalb von ProcA die Kopie verändert und danach ist es wieder wie vorher.

[günni0]

Ich dachte wenn die Daten in IsDataOK() verändert werden, stehen sie mir im Aufrufer (ProcA) zur Verfügung. Aber dort habe ich nur die alten Daten.
Übrigens, noch ein Tippfehler den ich aber nicht im Code habe. isDataok ist natürlich eine Function.

Und nee, ich habe in ProcA trotzdem nur die alten Daten.

Was auch immer ich in IsDataOK ändere, es steht mir in ProcA leider nicht zur Verfügung.

[himitsu]

Zitat von günni0:

Ich dachte wenn die Daten in IsDataOK() verändert werden, stehen sie mir im Aufrufer (ProcA) zur Verfügung.

So ist es auch, aber laut dem oben gezeigten verfälschten/pseudogekürzten Code hast du es angeblich richtig gemacht.


@aDataRecord in IsDataOK und in ProcA ansehen ... das sollte ja identisch sein

[günni0]

Ich habe den PC mal neu gestartet... warum nicht.
Jetzt funktioniert es genau wie es soll.

Ich hatte im Laufe des Tages auch bestimmt ein halbes Dutzend mal den Fehler, dass beim Kompilieren Stellen als Fehler markiert wurden, wo gar keine Fehler waren.
Vielleicht ist das ein Bug der durch diesen Bug kommt?

[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.

[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.

[KodeZwerg]

Delphi-Quellcode:

// procedure 3
function TDataUnit.IsDataOK(var aDataRecord: TDataRecord) : Boolean;
begin
 // überprüfe Daten (strings und integer) aus aDataRecord.
 // Wenn etwas kaputt ist, korrigiere es. Beispiel
 if aDataRecord.A < 0 then
 begin
  aDataRecord.A := 0;
  Result := True;
 end
 else
  Result := False;
end;

Könnte es so funktionieren?

[himitsu]

Ach ja, eine globale/zentrale Variable DataRecord anstatt der Übergabe (Parameter/Property) wäre der falsche Weg, für einen sauber Code.


PS: Einfache Struktur-Prüffunktionen baue ich auch gern als Methode in den Record ein, zu dem sie gehören.
Wobei Viele hier natürlich auch lieber zu Daten-Objekten raten würden.