Select Directory error … delphi 7 [closed]

by 

var
olddir: string; //global variable

procedure olddiris(name:string);
begin
    if name="trick" then
     olddir:= 'c:\program files\'+name;
  end;

procedure MyGetPath(name:string);
  var
    options : TSelectDirOpts;
  begin
    OldDirIs(name);  //returns olddir
    if FileCtrl.SelectDirectory(OldDir,options,0) then
      ShowMessage('i got it');
  end;

procedure TForm1.Button1Click(Sender: TObject);
  begin
   Mygetpath('trick');
  end;

This code runs without error… (Note: changed GetPath -> MyGetPath; added “\” to ‘c:\program files’) If the problem still exists, look elsewhere in you code or post more code/info.

More Related Contents:

  1. decrease the opacity of the form without changing other components
  2. Delphi 7 Webbrowser – select without value [closed]
  3. Antivirus False positive in my executable
  4. How to use Animated Gif in a delphi form
  5. Creating a component with named sub-components?
  6. Is there a way to instantiate a class by its name in delphi?
  7. How to detect “dangling pointers” if “Assigned()” can’t do it?
  8. Form is hidden behind other forms when ShowModal is called
  9. Custom Control Creation in Delphi
  10. Are delphi variables initialized with a value by default?
  11. Proper structure syntax for Delphi/Pascal if then begin end and ;
  12. How to direct the mouse wheel input to control under cursor instead of focused?
  13. Delphi: why breakpoints from time to time are not usable (green highlighted line on IDE)?
  14. What is the default value of ‘Result’ in Delphi?
  15. How to distinguish Multiple Keyboards in Delphi?
  16. Redraw image from 3d perspective to 2d
  17. How to also prepare for 64-bits when migrating to Delphi 2010 and Unicode
  18. How to free control inside its event handler?
  19. How to avoid issues when embedding a TForm in another TForm?
  20. How to use ScanLine property for 24-bit bitmaps?
  21. Inter-process communication
  22. How to check if two events are pointing to the same procedure in Delphi?
  23. Delphi ‘AND’ evaluation with 2 conditions
  24. Using WebView (EdgeHTML) in Delphi / C++ Builder
  25. DecimalSeparator in SysUtils and System.SysUtils
  26. Resize PNG image
  27. Delphi control that could mimic “Add-ons|Extension list” of Firefox?
  28. How can I make AllocateHwnd threadsafe?
  29. Can 48×48 or 64×64 icons be obtained from the Vista Shell?
  30. How to cast a Interface to a Object in Delphi

Leave a Comment