1 Topic by manixs2013 (edited by manixs2013 2019-06-19 10:16:30)

  • Registered: 2017-05-15
  • Posts: 722

Topic: relative path

Hello MVD!

I need a help on how to open a file on relative path not on the absolute path... then via button it will implement the syntax.... please:

My purpose is even on the USB you can load the "file.gpx".


SAMPLE:     Form1.Map1.LoadGPSRoute('d:\file.gpx', clRed, 2, True);

Thanks!

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: relative path

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  OpenDialog : TOpenDialog;
begin
   OpenDialog := TOpenDialog.Create(Form1);
   IF OpenDialog.execute then
   begin
      ShowMessage(OpenDialog.Filename);
   end;
   OpenDialog.Free;
end;

3 Reply by manixs2013 (edited by manixs2013 2019-06-19 13:13:44)

  • Registered: 2017-05-15
  • Posts: 722

Re: relative path

How can i call this function to USB

frmRoute.MapRoute.LoadGPSRoute(' ', clRed, 2, True);

frmRoute.MapRoute.LoadGPSRoute('c:\xxxGPXfiles\quiraing.gpx', clRed, 2, True);

4 Reply by sibprogsistem (edited by sibprogsistem 2019-06-19 13:55:38)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: relative path

manixs2013 wrote:

How can i call this function to USB

frmRoute.MapRoute.LoadGPSRoute(' ', clRed, 2, True);

frmRoute.MapRoute.LoadGPSRoute('c:\xxxGPXfiles\quiraing.gpx', clRed, 2, True);

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
  OpenDialog : TOpenDialog;
begin
   OpenDialog := TOpenDialog.Create(Form1);
   IF OpenDialog.execute then
   begin
      Form1.Map1.LoadGPSRoute(OpenDialog.Filename, clRed, 2, True);
   end;
   OpenDialog.Free;
end;
  • Registered: 2017-05-15
  • Posts: 722

Re: relative path

WOW... Thanks sibprogsistem!