entferne überflüssige Dialoge

1 files changed, 1 insertions, 4 deletions

diff --git a/unit1.pas b/unit1.pas
index 71311ff..90f3173 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -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;