Wenn ich auf den Button neuer Ordner klicke, tut sich nichts, ausser dass der Debuger in den Assembler springt, wo er nicht mehr rauskommt.
Was mache ich falsch?
Der Code:
Code: Alles auswählen
procedure THauptform.MMNeueAnlageClick(Sender: TObject);
var pfad_neu:string;
begin
Hauptform.SelectDirectoryDialog.Execute;
pfad_neu := Hauptform.Selectdirectorydialog.FileName;
end;
Letztlich will ich einen neuen Ordner anlegen und den Pfad dazu bekommen.
Gruß Fritz