Access Violation bei Open Dialog

[Larsi]

Hi,
ich habe ein sehr großes Problem. Ich rufe über einen Button einen ganz normalen Open Dialog auf. Das ist auch schon das Problem, wenn ich auf den Buttn wo folgendes drinnen steht:

Delphi-Quellcode:

OpenDialog1.Execute;
Edit1.Text := OpenDialog1.Filename;

draufdrüke dann kommt folgender Fehler:

Zitat:

---------------------------
Benachrichtigung über Debugger-Problem
---------------------------
In Projekt C:\Dokumente und Einstellungen\Lars\Desktop\Projekt\Projekt.exe trat ein Problem mit folgender Meldung auf: 'access violation at 0x7c91e8c5: write of address 0x00040ecc'. Prozess angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK
---------------------------

Dies ist seitem ich eine Gradient Komponente (Farbverlauf) installiert habe. Da ich diese während des Projekts aber schonmal installiert habe und danach noch alles ging glaube ich nicht das es daran liegt.

Der Fehler kommt sowohl beim Compillieren als auch wenn man die Exe Datei extern aufruft.

Woran liegt das? Ich habe auch schon den Opendialog gelöscht und wieder eingefügt aber das bringt alles nichts.

Was kann ich jetzt machen? Das Projekt von vorne anfangen kommt überhaupt nicht in Frage!

Wenn ich ein neues Projekt erstelle und den Opendialog öffne geht alles.

MFG Lars Wiltfang

[Der.Kaktus]

Hallo Larsi,

vielleicht mal ein Try Except einbauen

[hoika]

Hallo,

sicher dass das genau dort kommt (Breakpoint setzen !)
Ausserdem muss es heissen

Delphi-Quellcode:

if OpenDialog1.Execute then
begin
  xxx:= OpenDialog1.FileName
end;

> Ich habe auch schon den Opendialog gelöscht und wieder eingefügt >
1. einfach in der IDE (im Quellcode)
2. über den Form-Designer

1. geht natürlich schief, weil die Variable dann NIL ist


Heiko

[uligerhardt]

Das:

Zitat von Larsi:

Delphi-Quellcode:

OpenDialog1.Execute;
Edit1.Text := OpenDialog1.Filename;

sollte auf jeden Fall so:

Delphi-Quellcode:

if OpenDialog1.Execute then
  Edit1.Text := OpenDialog1.Filename;

heißen.

Uli.

// EDIT: Kein roter Kasten?

[ok.de]

Hi

Ich habe z.Z. ein ganz ähnliches Problem: In meinem Programm habe ich zwei TSaveDialogs und seit gestern kommt bei beiden immer bei Execute() eine AV wie oben beschrieben. Wenn ich das Prog ohne Debugger ausführe, beendet es sich an der Stelle ohne Meldung. Das ganze hat auch schon reibungsfrei funktioniert. Im Zusammenhang mit den TSaveDialogs habe ich nichts großartig geändert, jedenfalls nicht dass ich wüsste.
Woran könnte das liegen??

Ich führe die Dialoge ganz normal aus:

Delphi-Quellcode:

if SaveDialog.Execute then begin

end else begin

end;

Mit Try .. Except ändert sich nichts.

Olli

[DeddyH]

Erzeugst Du die Dialoge dynamisch oder sind das einfach nur Komponenten auf dem Formular?

[Larsi]

Also bei mir sinds nur Komponenten (ja ich habe das Problem auch noch).

[DeddyH]

Häng doch das Projekt mal an, wenn es nicht zu geheim ist.

[Larsi]

Is zu geheim tut mir leid *Spannung mach* Aber in der Form steht wirklich nicht viel anderes. Ich tippe auf Delphi Bug der auftritt wenn man den Dialog zur falschen Stelle aufruft. ok.de kann ja seinen Code hochladen

[Meflin]

Zitat von Larsi:

Is zu geheim tut mir leid *Spannung mach* Aber in der Form steht wirklich nicht viel anderes. Ich tippe auf Delphi Bug der auftritt wenn man den Dialog zur falschen Stelle aufruft. ok.de kann ja seinen Code hochladen

Ich tippe ja eher auf Larsi-Hirn-Bug. Welche Stelle wäre das denn?!