selectdirectory zugriffsverletzung

[Danyel]

Hi,
da die Forensuche mich nicht weiter gebracht hat, stelle ich euch hier die Frage.

Ich möchte in meinem Programm vom User ein Pfad auswählen lassen und habe keine Lust neue Komponenten etc einzubinden. Bin dann auf SelectDirectory gestoßen.

Delphi-Quellcode:

uses FileCtrl;
procedure xy;
var dir : string;
begin
   SelectDirectory('Select a directory', '', Dir);
   ShowMessage(Dir);
end;

Soweit alles ganz schön und gut, doch funktioniert dies nicht, obwohl es eigentlich funktionieren müsste nachdem was ich hier schon so gefunden habe, doch bekomme ich eine Zugriffsverletzung und nichts passiert, dh der Dialog öffnet sich nicht.
Hier ein Bild der Fehlermeldung:
http://img186.imageshack.us/img186/3508/fehlerrt.jpg

[omata]

In welcher Zeile tritt der Fehler konkret auf? Hast du das mal mit dem Debugger nachvollzogen?

Edit: Versuch es mal so...

Delphi-Quellcode:

uses FileCtrl;
procedure xy;
var dir : string;
begin
  if SelectDirectory('Select a directory', '', Dir) then
    ShowMessage(Dir);
end;

[hoika]

Hallo,

F5 auf SelectDirectory und mal laufen lassen.
Ich tippe mal auf einen NIL-Zeiger durch nicht initialiserte Klasse in deinem Initialisieren.


Heiko

[s.h.a.r.k]

Also an deinem Code weiter oben kann eigentlich kaum was schief laufen, es muss wahrlich wo anders liegen! Dazu würde ich, wie omata schon geschrieben habe, das ganze mit einem if noch erweitern, da der User den Dialog ja auch abbrechen kann, denn dann bekommst du keinerlei Verzeichnis zurück -> schlecht!

[Danyel]

Delphi-Quellcode:

uses filectrl;
var bf2modtools:string;

procedure TForm1.FormCreate(Sender: TObject);
begin

      if firstrun=true then         //wenn erster Programmstart
      begin
            if SelectDirectory('Select a directory', 'C:\', bf2modtools) then ShowMessage(bf2modtools);
      end;
end;

Fehler tritt bei
if SelectDirectory('Select a directory', 'C:\', bf2modtools) then ShowMessage(bf2modtools); auf.
Makiere ich SelectDirectory mit F5 und lasse das Projekt laufen, passiert nichts.
Oben links im "Aufruf-Stack" (was auch immer das sein soll) zeigt er
TForm1.FormCreate(???) an, keine Ahnung ob das normal ist.
Ansonsten kann ich mit Heikos Beitrag nichts weiter konkret anfangen, da ich nicht genau verstehe was gemeint ist.
Vielen Dank für die schnellen Antworten

[omata]

Vielleicht darfst du das im FormCreate einfach noch nicht verwenden.

Und warum wird da eine Variable global deklariert, die nur lokal verwendet wird? Und bitte nicht auf True abfragen.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
:
  private
    { Private-Deklarationen }
    FFirstRun:boolean;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses filectrl;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FFirstRun:=true;
end;

procedure TForm1.FormActivate(Sender: TObject);
var bf2modtools:string;
begin
  if FFirstRun then begin
    FFirstRun:=false;
    if SelectDirectory('Select a directory', 'C:\', bf2modtools) then
      ShowMessage(bf2modtools);
  end;
end;