Hallo,

Ich bekomme in einer Prozedur einer selbst geschriebenen Klasse
bei der Zuweisung dWert1 := dWert2; eine Access Violation

Im Projekt LDUAcquisition.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 005FAD4C in Modul 'LDUAcquisition.exe'. Schreiben von Adresse 00000030'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

Dabei ist dWert1 eine public Double-Variable in einer Unterklasse
Dabei ist dWert2 eine lokale Double-Variable mit einem normalen Wert (2.6267)

Hat jemand eine Idee, was falsch sein könnte ?

Ich bin für jeden Tipp dankbar

Martin

Wurde die Unterklasse erstellt ?

Sie ist in der Hauptklasse, wo auch die (fehlerhafte) Prozedur steht,
im public-Teil mit einer Instanz deklariert. In der Prozedur selbst steht
natürlich dann auch

markieren

Delphi-Quellcode:

with Instanz do
  dWert1 := dWert2;

hast dudenn auch im contructor der "Hauptklasse" (oder sonstwo)
Instanz := TUnterKlasse.Create; stehen?

Tschuldigung, ich bin ein wenig durcheinander gekommen
(tut mir leid), die Variable dWert1 ist doch direkt in der Hauptklasse definiert

wenn die Variable ein Double und in einer Klasse deklariert ist, dann kann der Fehler eigentlich nur kommen, wenn keine Instanz erstellt wurde, d.h. wenn Create nicht aufgerufen worden ist. Check doch noch mal nach ob du das nicht vergessen hast.

und wenn du soetwas schreibst:

markieren

Delphi-Quellcode:

with Instanz do
  dWert1 := dWert2;

, dann werden sowohl dWert1 als auch dWert2 zuerst in "Instanz" gesucht, d.h. wenn Instanz eine Variable namens dWert1 hat, dann wird diese angesprochen, und nicht etwa die Variable dWert1 der Hauptklasse - ich weiss ja nicht wie es jetzt genau sein soll. von daher vielleicht mal das "with" weglassen und die Variablen direkt über die Instanzen ansprechen.

Danke, BlackJack, für die Hinweise,
ich habe deshalb noch mal den Code überprüft.
Die Instanz der Hauptklasse wurde erstellt.
 Device := TDevice.Create Der Fehler kommt auch, wenn ich die Unterklasse
Instanz vor die einzelnen Variablen und Objekte setze
und die with-Anweisung weglasse.

Allerdings ist mir beim Testen etwas anderes aufgefallen
Wenn ich im obigen Source Fkt(x,y,z) ersetze durch den
konstanten Wert 2.6267, dann gibt es kein Problem.
Also dürfte der Fehler wohl in der Funktion Fkt liegen.
Das Komische ist nur, dass bei der Berechnung des Wertes
durch die Funktion Fkt kein Fehler auftaucht und in dWert2
wirklich der richtige berechnete Wert zu finden ist.
Vielleicht noch zur Info: Fkt ist eine Funktion
aus einer Sammlung von selbstgeschriebenen mathematischen
Funktion in einer eigenen Unit.

Der Fehler kommt selbst dann, wenn ich erst die Funktion aufrufe
und danach den Wert dWert1 mit einem konstanten wert überschreibe
Also :

zusammenfalten · markieren

Delphi-Quellcode:

Procedure xyz;
 var dWert2 : double;
begin
  with clKlasse do
  begin
    dWert2 := Fkt(x,y,z);
    dWert2 := 0.26267
    dWert1 := dWert2 // hier kommt die Access Violation
  end;
  ...
end;

markieren

Delphi-Quellcode:

Procedure xyz;
 var dWert2 : double;
begin
  with clKlasse do
  begin
    dWert2 := 0.26267
    dWert1 := dWert2
  end;
  ...
end;

läuft hingegen einwandfrei

und dWert1 ist ein feld von clKlasse? dann wird entweder clKlasse nicht Created oder die Fkt-function ist fehlerhaft. (ich denke eher ersteres)

ansonsten ist es ziemlich merkwürdig, dass der 2. code funzt, der 1. aber nicht... ich kann mir das höchstens so erklären dass der Debugger an der falschen Stelle die AV anzeigt.