Zugriffsverletzung bei Adresse 0045976B ...

[Sir Rufo]

Und in welcher Zeile taucht der Fehler auf?

btw. war ne ganz schöne Tipp/Kopierarbeit

Ab dem nächsten Projekt solltest du dich mit DRY, KISS und der Codeformatierung beschäftigen

[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} wenn du mir zur Codeformatierung gute Tipps geben kannst bin ich immer dafür offen :D (wie gesagt ist mein erstes Programm)

[himitsu]

Tja, wie gesagt.
Haltepnkt drauf, Mauszeger über "Form2" halten und staunen ... da wird dann doch nicht etwa NIL angezeigt?

Zitat von Sir Rufo:

btw. war ne ganz schöne Tipp/Kopierarbeit

Ab dem nächsten Projekt solltest du dich mit DRY, KISS und der Codeformatierung beschäftigen

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.

[anoymouserver]

Zitat von Sir Rufo:

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

Delphi-Quellcode:

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

wenn ich das übernehme kommt die Meldung 'Nicht genügend wirkliche Parameter'?

Zitat von himitsu:

Ab dem nächsten Projekt solltest du dich mit DRY, KISS und der Codeformatierung beschäftigen

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. [/QUOTE]
das dacht ich mir aber ich habe bis jetzt leider noch keine Ahnung wie ... aber Tipps nehm ich gerne an

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

[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

[himitsu]

Zitat von anoymouserver:

wenn ich das übernehme kommt die Meldung 'Nicht genügend wirkliche Parameter'?

Bei sowas schaut man einfach nach, was für Parameter fehlen.
> OH (TForm.Create)
> Quellcodevervollständigung, aber hier eher das CodeInsight (halte mal die Maus über das "Create" und warte ein Sekündchen)

Was aber noch "sehr schlecht" ist, die radikale Verwendung der bösen globalen Variablen.
Wenn du Code innerhalb der Mothoden von TForm1 hast, dann verwende darin niemals Variablen wie Form1.
Du bist da schon in TForm1 drin, dann muß man doch nicht den gewählichen Umweg über die Klippe "Form1" nehmen, um am Ende wieder auf sich selber zuzugreifen.
Das ist ja so, als wenn du Gott sagst er solle dich was fragen. (schneller geht's du fragst dich selber)

Wie hieß nochmal das Spiel, wo Einer dem Anderem was zuflüstert, das dann immer so weitergeht und nach einer Weile kommt was ganz Anderes raus?

Zitat:

aber ich habe bis jetzt leider noch keine Ahnung wie ... aber Tipps nehm ich gerne an

Zitat von anoymouserver:

Hi sorry falls ich störe aber du sagtest
...
kannst du mir bitte sagen wie, denn langsam bekomm ich Probleme weil es unübersichtlich wird ...

Es gibt ja eigentlich genügent Delphitutorials.

Und für den Anfang:

Delphi-Quellcode:

if B then 
  A := True
else
  A := False;

A := B;

Delphi-Quellcode:

if B then 
  A := False
else
  A := True;

A := not B;

Delphi-Quellcode:

if C then begin
  if B then 
    A := True
  else
    A := False;
end else begin
  if B then 
    A := False
  else
    A := False;
end;

A := B and C;

Delphi-Quellcode:

if C then begin
  if B then 
    A := True
  else
    A := True;
end else begin
  if B then 
    A := True
  else
    A := False;
end;

A := B or C;

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