Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Funktionsaufrufe wegoptimiert??? (https://www.delphipraxis.net/143444-funktionsaufrufe-wegoptimiert.html)

iphi 16. Nov 2009 11:47


Funktionsaufrufe wegoptimiert???
 
Hallo,

ich lese verschiedene Einträge aus einem ini-File mit folgender Programm-Struktur:

Delphi-Quellcode:
var a,b,c...: integer;
ok:=true
ok:=ok and FindEntry(F, 'A=', a);
ok:=ok and FindEntry(F, 'B=', b);
ok:=ok and FindEntry(F, 'C=', c);
...
Die Funktion FindEntry(F, 'A=', a); durchsucht das TextFile F nach der Zeile A=Zahl und speichert die Zahl in a ab. Falls keine solche Zeile gefunden wird, ist der Rückgabewert false, ansonsten true.

Mit der Variable ok prüfe ich zum Schluss, ob alle Zeilen gefunden wurden.

Nun mein Problem:
Nehmen wir an, deine Zeile B=Zahl gibt es nicht in der Datei, Zeilen A=.. und C=... aber schon.
Dann habe ich zum Schluß in a den Wert aus der Zeile A=..., die Abfrage nach B= schlägt fehl.

Problem: Der Aufruf FindEntry(F, 'C=', c); findet dann nicht mehr statt, vermutlich, weil ok schon false ist. Ich hätte aber trotzdem die Variable c gerne aus der Datei geladen.

Wo liegt mein Denkfehler? Irgendwie besitzt der Compiler eine andere Logik als ich.

guinnes 16. Nov 2009 11:55

Re: Funktionsaufrufe wegoptimiert???
 
Dreh die Abfrage doch einfach um :
Delphi-Quellcode:
ok:=FindEntry(F, 'A=', a) and ok;
Dann wird immer erst die Function aufgerufen

Neutral General 16. Nov 2009 11:58

Re: Funktionsaufrufe wegoptimiert???
 
was hältst du von:

Delphi-Quellcode:
ok:= FindEntry(F, 'A=', a) and FindEntry(F, 'B=', b) and FindEntry(F, 'C=', c);
:?:

Bernhard Geyer 16. Nov 2009 12:00

Re: Funktionsaufrufe wegoptimiert???
 
Zitat:

Zitat von iphi
Wo liegt mein Denkfehler? Irgendwie besitzt der Compiler eine andere Logik als ich.

Nö, der Compiler macht nur was du in den Projekteinstellungen (Boolsche Ausdrücke vollständig) definierst.

Reinhard Kern 16. Nov 2009 12:12

Re: Funktionsaufrufe wegoptimiert???
 
Zitat:

Zitat von iphi
Wo liegt mein Denkfehler? Irgendwie besitzt der Compiler eine andere Logik als ich.

Ja - das ist "Abbruchlogik", aber durchaus logisch: bei ok := a and b wird der zweite Teil nicht mehr aufgerufen, wenn a false ist, falser kann es nicht werden und mit and auch nicht true.

Man kann einstellen, das logische Gleichungen bis zum Ende ausgewertet werden, aber das ist, zumindest meiner Meinung nach, schlechter Programmierstil: das Laden von Variablen ist ein Nebeneffekt der logischen Abfrage, und dein Programm erklärt praktisch die Nebenwirkung zum eigentlich beabsichtigten Zweck. Man kann das aber auch anders formulieren:

Delphi-Quellcode:
ok := true;
found := ladevar1;
if not found then ok := false;
found := ladevar2;
if not found then ok := false;
Gruss Reinhard

generic 16. Nov 2009 12:19

Re: Funktionsaufrufe wegoptimiert???
 
Eigentlich ist das nicht "Abbruchlogik" sondern Compiler Optimierung.
Was Falsch ist kann bei AND nicht mehr Wahr werden. Somit wird das dann weg gelassen.
Aber mit der vorne genannten Schalter kannst du das Compilerverhalten abschalten.

angos 16. Nov 2009 12:25

Re: Funktionsaufrufe wegoptimiert???
 
Hi,

mit dem Kompilerschalter "boolsche Ausdrücke vollständig" werden auch die anderen Prüfungen mit ausgeführt, wenn das Ergenis schon klar ist.
[EDIT] wie auch schon gesagt wurde und ich überlesen habe^^ :)
Gruß
angos

guinnes 16. Nov 2009 12:25

Re: Funktionsaufrufe wegoptimiert???
 
Zitat:

Zitat von generic
Aber mit der vorne genannten Schalter kannst du das Compilerverhalten abschalten.

Was ich aber tunlichst vermeiden würde. Vor allem, wenn man Fremdkomponenten einsetzt.
Delphi-Quellcode:
if (Blub <> NIL) and (Blub.TaTa = '') Then
geht auf die Bretter, wenn Blub nil ist

DeddyH 16. Nov 2009 12:28

Re: Funktionsaufrufe wegoptimiert???
 
Deshalb sollte man das eigentlich auch so machen (tu ich allerdings auch nicht):
Delphi-Quellcode:
if Blub <> NIL then
  if Blub.TaTa = '' Then

guinnes 16. Nov 2009 12:30

Re: Funktionsaufrufe wegoptimiert???
 
Zitat:

Zitat von DeddyH
Deshalb sollte man das eigentlich auch so machen (tu ich allerdings auch nicht):
Delphi-Quellcode:
if Blub <> NIL then
  if Blub.TaTa = '' Then

Ich auch nicht, und viele Komponentenhersteller und auch Borland nicht :?

himitsu 16. Nov 2009 13:09

Re: Funktionsaufrufe wegoptimiert???
 
Hast du Einfluß auf die Funktion FindEntry?

Delphi-Quellcode:
Fehler := false;
a := FindEntry(F, 'A=', Fehler);
b := FindEntry(F, 'B=', Fehler);
c := FindEntry(F, 'C=', Fehler);
...
Delphi-Quellcode:
function FindEntry(...
begin
  ...
  if was_ist_falsch then Fehler := True;
  ...
end;

Bernhard Geyer 16. Nov 2009 13:21

Re: Funktionsaufrufe wegoptimiert???
 
Zitat:

Zitat von guinnes
Zitat:

Zitat von DeddyH
Deshalb sollte man das eigentlich auch so machen (tu ich allerdings auch nicht):
Delphi-Quellcode:
if Blub <> NIL then
  if Blub.TaTa = '' Then

Ich auch nicht, und viele Komponentenhersteller und auch Borland nicht :?

Und deshalb machen wir bein uns einen check auf die Compileroption und wenn diese falsch gesetzt ist erzeugen wir einen Fatal Error. Das in eine Zentrale Unit gepackt und schon läuft man nicht gefahr die falsche Option zu verwenden.

iphi 16. Nov 2009 13:57

Re: Funktionsaufrufe wegoptimiert???
 
Ok danke, habs verstanden.

Die einfachste Lösung für mein Problem ist somit

Delphi-Quellcode:
var a,b,c...: integer;
ok:=true
{$B+}
ok:=ok and FindEntry(F, 'A=', a);
ok:=ok and FindEntry(F, 'B=', b);
ok:=ok and FindEntry(F, 'C=', c);
{$B-}
So muss ich am wenigsten tippen. Es handelt sich nämlich nicht nur um 3 Ausdrücke sondern um ca. 100.

Ich liebe Compilerschalter :-)

gammatester 16. Nov 2009 14:04

Re: Funktionsaufrufe wegoptimiert???
 
Zitat:

Zitat von Bernhard Geyer
Und deshalb machen wir bein uns einen check auf die Compileroption und wenn diese falsch gesetzt ist erzeugen wir einen Fatal Error. Das in eine Zentrale Unit gepackt und schon läuft man nicht gefahr die falsche Option zu verwenden.

Und was soll das bringen? {$B} bzw. {$BOOLEVAL} ist unit-lokal!

guinnes 16. Nov 2009 14:07

Re: Funktionsaufrufe wegoptimiert???
 
Zitat:

Zitat von gammatester
Und was soll das bringen? {$B} bzw. {$BOOLEVAL} ist unit-lokal!

Wenn jemand das lokal einschaltet, so sollte man davon ausgehen, dass er weiß, was er macht

sx2008 16. Nov 2009 18:37

Re: Funktionsaufrufe wegoptimiert???
 
Zitat:

Zitat von iphi
Es handelt sich nämlich nicht nur um 3 Ausdrücke sondern um ca. 100.
Ich liebe Compilerschalter :-)

Auweia !!! Bei 100 Prüfungen müssen doch alle Alarmglocken läuten.
Hast du mal etwas von einer For-Schleife gehört?
Oder einem Konstanten-Array?
Delphi-Quellcode:
const
  LISTE: array[0..99] of string = (
  'A=',
  'B=',
  .... );
...
  for i := Low(LISTE) to High(LISTE) do
  begin
    erg := FindEntry(F, LISTE[i], wert[i]);
    ok := ok and erg;
  end;

SirThornberry 16. Nov 2009 18:43

Re: Funktionsaufrufe wegoptimiert???
 
Zitat:

Zitat von iphi
...Die einfachste Lösung für mein Problem ist somit...

Die einfachste Lösung wurde bereits im zweiten Post bekannt gegeben. Also in der ersten Antwort.
Warum mit Compilerschaltern anstelle es gleich so zu formulieren wie du willst (also wie in Beitrag 2 beschreiben)


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:19 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