diff options
-rw-r--r-- | unit1.pas | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -82,10 +82,7 @@ end; procedure tForm1.button1Click(sender: tObject); begin if openDialog1.execute then - if d.loadFromFile(openDialog1.fileName) then - messageDlg('Erfolg! '+inttostr(length(d.gpx)),mtInformation,[mbOk],0) - else - messageDlg('Misserfolg!',mtInformation,[mbOk],0); + d.loadFromFile(openDialog1.fileName); zeichneGpxs; end; |