Re: wie funktioniert try except
Dass die relevanten Source-Teile identisch waren, das hat auch keiner gemerkt. :mrgreen:
Zitat:
Das kommt davon, wenn man alles ignoriert und nur guckt, dass es läuft. Egal wie. 8) Keiner hat das zur Kenntnis genommen : Zitat:
Delphi-Quellcode:
Leute, die so was permanent ignorieren, denen sollte der Delphi-Compiler besser die Arbeit verweigern, anstatt das selbst auch noch zu ignorieren. :mrgreen: Für Testzwecke ist das vielleicht noch hinzunehmen, irgendwelche überflüssigen Variablen zu haben, aber der Normalfall sollte das nicht sein.
procedure TForm1.FormCreate(Sender: TObject);
var a,b:integer; begin b := 0; try a := 1 div 2; // vorher stand hier : a := 1 div 0; (* ShowMessage(inttostr(a)); //Hier wird auf a zugegriffen, daher keine Optimierung ShowMessage(inttostr(b)+' Kein Fehler') *) except ShowMessage('Fehler') end; end; Das hier z.B. wird NICHT compiliert :
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var a,b:integer; begin b := 0; try a := 1 div 0; Zitat:
Zugriff auf a oder b geschieht auch hier nicht :
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var a,b:integer; begin b := 0; try a := 1 div 0; (* ShowMessage(inttostr(a)); //Hier wird auf a zugegriffen, daher keine Optimierung ShowMessage(inttostr(a)+' Kein Fehler') *) except ShowMessage('Fehler') end; end; |
Re: wie funktioniert try except
Wie oft willst Du das eigentlich noch posten?
|
Re: wie funktioniert try except
Zitat:
Auch viele andere Optimierungen gab es da ja noch nicht, weshalb Programme da teilweise merklich langsamer sind. |
Re: wie funktioniert try except
IIRC ging das noch nicht einmal in Delphi 1.
|
Re: wie funktioniert try except
Zitat:
Und zudem nutze ich ja Delphi 3 schon einige Jahre nicht mehr. |
Re: wie funktioniert try except
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
|
Re: wie funktioniert try except
Das wollte ich doch meinen. [ironie] Aber mit den alten Versionen kann man auch nicht arbeiten, ich frage mich, wie wir das früher gemacht haben :zwinker: [/ironie]
[edit] Ironie-Tags hinzugefügt, das ging wohl irgendwie unter *g* [/edit] |
Re: wie funktioniert try except
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
Compile-Error 62: Division durch 0 €: Ach mist, hansa war schneller... btw. bei mir kommt die Fehlermeldung (in BP7) über der falschen Zeile, nicht in einem Extra kleinen Fenster. Mein BP-7 sieht auch viel moderner aus... PS: Was Ihr alle gegen den Komfort von Delphi 3-7 habt... ich nutze Delphi 5 und Turbo Explorer 2006. Der Komfort von Delphi 5 reicht dem Hobby-Programmierer locker... |
Re: wie funktioniert try except
Liste der Anhänge anzeigen (Anzahl: 1)
Du hast ja früher auch von Hand geschrieben und wohl auch programmiert. Heute wird nur noch geklickt, F9 gedrückt bis es geht und dann mit Cut and Paste weitergemacht. Geht immer noch nichts, dann wird notfalls noch hier gefragt. :mrgreen:
@Satty : Frühmerker. :zwinker: Und blauer Bildschirm hat nichts mit modern zu tun. Das da ist Turbo-Analyst. Mit kleinem Sourcecode-Formatter, Profiler etc. |
Re: wie funktioniert try except
@Hansa:
Nein, dachte wegen der IDE (Menü und CO), aber wenn es ein anderes Programm war... So... wird ja tierisch OT hier, gleich gibt es mit dem Rohrstock vom Moderator. Ich muss nicht verwarnt werden, ich geisel mich jetzt selbst etwas und lasse es ab jetzt OT (in diesem Thread) zu posten. :shock: :mrgreen: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:38 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz