From 58790ee6b3a7fcf4fd939bb417964cee2b75f0ef Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Mon, 25 Sep 2017 10:40:56 +0200 Subject: entferne überflüssige Dialoge MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- unit1.pas | 5 +---- 1 file changed, 1 insertion(+), 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; -- cgit v1.2.3-54-g00ecf