opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 20:00:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

Code comments...

Browse Source
This commit is contained in:
rosenfield
2008-03-29 16:13:31 +00:00
parent 201598de81
commit 19f463b1d0
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
source/exportsql.pas
View File

@ -1557,6 +1557,7 @@ var
begin begin
// TODO: Find an alternative to SelectDirectory(), which causes // TODO: Find an alternative to SelectDirectory(), which causes
// a platform compiler warning because it needs the FileCtrl unit // a platform compiler warning because it needs the FileCtrl unit
// -> Q: What about using fx TOpenDialog for this purpose?
chosenDirectory := EditDirectory.Text; chosenDirectory := EditDirectory.Text;
if SelectDirectory('Select output directory', '', chosenDirectory) then if SelectDirectory('Select output directory', '', chosenDirectory) then
EditDirectory.Text := chosenDirectory; EditDirectory.Text := chosenDirectory;