Funktionsaufrufe wegoptimiert???

[himitsu]

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]

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]

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]

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]

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]

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]

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)