Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Zugriffsverletzung beim Abbrechen


Leuchtturm - So 05.11.06 15:51
Titel: Zugriffsverletzung beim Abbrechen
Hi,
ich habe ein Problem(sonst wäre ich jetzt nicht hier :wink: ):
Wenn ich einen OpenDialog abbreche dann bekomme ich eine Zugriffsverletzung.
Code:

Delphi-Quelltext
1:
2:
3:
4:
5:
 try
  JVPlaylist1.Items.AddStrings(opendialog1.Files);
 except
   ShowMessage('Fehler beim Öffnen der Datei!')
 end;

und

Delphi-Quelltext
1:
2:
3:
4:
  if OpenDialog1.Execute then
  begin
    Open;
  end;

Lisgt das am OpenDialog oder an meiner Programmierung??
Leuchtturm


Lannes - Mo 06.11.06 14:00

Hallo,

eine Zugriffsverletzung durch den Opendialog ist mir nicht bekannt.

Setz doch mal einen Haltepunkt auf Zeile 2.
Funktioniert der Code bis zu dieser Zeile?


azubi_20 - Mo 06.11.06 14:05

gib mal den ganzen code der öffnen-prozedur....


Delete - Mo 06.11.06 14:14

Was ist das für ein einsames Open? Und warum benutzt du einen OpenDialog, wenn du dessen Rückgabe, den Dateinamen, gar nicht benutzt?


Lannes - Mo 06.11.06 14:40

Hallo,
user profile iconLuckie hat folgendes geschrieben:
Was ist das für ein einsames Open? Und warum benutzt du einen OpenDialog, wenn du dessen Rückgabe, den Dateinamen, gar nicht benutzt?
ist doch kein Problem in Open Filename bzw. Files auszuwerten, sie bleiben doch erhalten. :gruebel:


Leuchtturm - Mo 06.11.06 17:38

Danke erstmal


user profile iconLannes hat folgendes geschrieben:
Hallo,

eine Zugriffsverletzung durch den Opendialog ist mir nicht bekannt.

Setz doch mal einen Haltepunkt auf Zeile 2.
Funktioniert der Code bis zu dieser Zeile?


Ja der Code funktioniert bis zu der Zeile




user profile iconLuckie hat folgendes geschrieben:
Was ist das für ein einsames Open? Und warum benutzt du einen OpenDialog, wenn du dessen Rückgabe, den Dateinamen, gar nicht benutzt?

1.Ich brauche die Dateinamen
2.Das einsamme Open ist eine Prozedur die ich dort öffne, hääte ich vllt erwähnen sollen :wink:

Und jetzt habe ich es hinbekommen:


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
 
 try
  if OpenDialog1.Excute then JVPlaylist1.Items.AddStrings(opendialog1.Files);
 except
   ShowMessage('Fehler beim Öffnen der Datei!')
 end;



Delphi-Quelltext
1:
Open;