Zugriffsverletzung bei Adresse 0045976B ...

[anoymouserver]

Zitat von Sir Rufo:

Zitat von anoymouserver:

naja das problem ist ich habe den Debugger laufen lassen aber er sag nirgenwo 'Fehler'

Na logo sagt er das, denn

Zitat von anoymouserver:

Zitat von Sir Rufo:

Und in welcher Zeile taucht der Fehler auf?

nach der Meldung ist immer diese Zeile markiert:

Form2.ShowModal; {Infobox öffnen}

ja schon aber das sagt er erst wenn ich das Prog. starte und versuche die Infobox zu öffnen nicht wenn ich mich mit F7 durcharbeite ...

und dann markiert er sie Zeile auch blau und nicht wie sonst bei fehlern rot

[Sir Rufo]

Upps, jo, das muss TForm2.Create( nil ) heißen, da muss ja ein Owner angegeben werden (bzw. keiner -> nil, weil wir das Freigeben selber übernehmen)

[Sir Rufo]

Zitat von anoymouserver:

Zitat von Sir Rufo:

Zitat von anoymouserver:

naja das problem ist ich habe den Debugger laufen lassen aber er sag nirgenwo 'Fehler'

Na logo sagt er das, denn

Zitat von anoymouserver:

Zitat von Sir Rufo:

Und in welcher Zeile taucht der Fehler auf?

nach der Meldung ist immer diese Zeile markiert:

Form2.ShowModal; {Infobox öffnen}

ja schon aber das sagt er erst wenn ich das Prog. starte und versuche die Infobox zu öffnen nicht wenn ich mich mit F7 durcharbeite ...

und dann markiert er sie Zeile auch blau und nicht wie sonst bei fehlern rot

Debugger <> Compiler
Der Compiler sagt dir beim Erzeugen, ob es syntaktische Fehler gibt, weil die eben nicht zu übersetzen sind.
Der Debugger schlägt erst dann an, wenn das Programm an eine Stelle kommt, wo z.B. so ein Zugriff nicht funktioniert.

[anoymouserver]

ich hab das jetzt hier eingefügt:

Delphi-Quellcode:

procedure TForm1.Info1Click(Sender: TObject);
begin
with TForm2.Create( nil ) do
  try
    ShowModal;
  finally
    Free;
  end; {Infobox öffnen}
end;

aber jetzt bekomm ich eine ähnliche fehlermeldung

[Sir Rufo]

Zitat von anoymouserver:

ich hab das jetzt hier eingefügt:

Delphi-Quellcode:

procedure TForm1.Info1Click(Sender: TObject);
begin
with TForm2.Create( nil ) do
  try
    ShowModal;
  finally
    Free;
  end; {Infobox öffnen}
end;

aber jetzt bekomm ich eine ähnliche fehlermeldung

Die da lautet und an welcher Stelle?

[anoymouserver]

jetzt lautet die Meldung: 'Zugriffsverletzung bei Adresse 004379B8 in Modul 'ProjektBerechnen.exe'. Lesen von Adresse 00000048'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

aber nach wiederholtem OK drücken tauch immerhin schonmal die Infobox auf

[Medium]

Dann passiert etwas beim Erzeugen oder OnShow des TForm2 ein Zugriff ins Nichts. Haltepunkt auf die Zeile mit dem Create(), und mit F7 durchsteppen. Wenn das so weit geht, Haltepunkt auf die Zeile mit OnShow, mit F7 durchsteppen. Spätestens dort sollte die genaue Methode/Zeile klar werden, an der du ins Leere greifst.
Hier in der DP gibt's übrigens ein Tutorial zur Benutzung des Debuggers!

[Bummi]

Du erzeugst so:

Delphi-Quellcode:

with TForm2.Create( nil ) do
  try
    ShowModal;
  finally
    Free;
  end;

und greifst dann so zu ...

Delphi-Quellcode:

  Form2.Left := Form1.Left +145;
  Form2.Top := Form1.Top +45;

Form1 zeigt hier ins Nirvana, entweder Du verwendest

Delphi-Quellcode:

Form2 := TForm2.Create( nil );

with Form2 do
  try
    ShowModal;
  finally
    Free;
  end;

oder besser, lass den Bezug auf die Instanz weg

Delphi-Quellcode:

  Left := Application.Mainform.Left +145;
  Top := Application.Mainform.Top +45;

[mkinzler]

Zitat von Sir Rufo:

Ok, das bedeutet, dass es noch keine Instanz für die Form gibt

Die Form2 hast du aus der Liste der automatisch zu erstellenden Formulare entfernt.
Das ist schon soweit ok, aber dann musst du dich auch um die Erzeugug einer Instanz kümmern.

Für so eine billige Form-ShowModal Instanz kann man folgendes benutzen:

Delphi-Quellcode:

with TForm2.Create do
  try
    ShowModal;
  finally
    Free;
  end;

Am Besten aber ohne with. Sonst handelt man sich u.U. weitere Ungereimtheiten im Verhalten ein.

[anoymouserver]

Zitat von Bummi:

oder besser, lass den Bezug auf die Instanz weg

Delphi-Quellcode:

  Left := Application.Mainform.Left +145;
  Top := Application.Mainform.Top +45;

damit funktoniert es bestens, vielen Dank

P.S.: wenn aber noch jemand verraten kann wie ich wie geschrieben quelltext spare währe ich sehr erfreut ... denn langsam mach mir die Länge ein wenig zu schaffen

Zitat:

Was er damit meint ist, daß sich Methoden wie aDEdLaengecChange, locker in nur kurzen 3 Zeilen Quellcode schreiben lassen, falls man sich nicht so viel Arbeit machen will.