b <> 0

[vsilverlord]

Hallo, ich hab nur eine Eleganzfrage, also es funktioniert schon.
Wie kann ich

Delphi-Quellcode:

if b<>0 then
a:=a/b

eleganter machen? Ich hab diese Klausel sehr häufig, bei vielen Rechnungen kann bei b 0 rauskommen.

[Die Muhkuh]

Delphi-Quellcode:

// Als Procedure
procedure MyDiv(var Dividend: Single; Divisor: Single);
begin
  if (Divisor <> 0) then
    Dividend := Dividend / Divisor;
end;

// Als Funktion:
function MyDiv(Dividend, Divisor: Single): Single;
begin
  if (Divisor <> 0) then
    Result := Dividend / Divisor;
end;

// Aufrufe:
// Procedure:
MyDiv(Dividend, Divisor);

// Funktion:
Dividend := MyDiv(Dividend, Divisor);

Vielleicht auch so:

Delphi-Quellcode:

// Als Funktion, die true zurück gibt, wenn geteilt wurde:
function MyDiv(var Dividend: Single; Divisor: Single): Boolean;
begin
  Result := Divisor <> 0;
  if (Result) then
    Dividend := Dividend / Divisor;
end;

// Aufruf
if (MyDiv(Dividend,Divisor)) then
  // es wurde geteilt
else
  // es wurde nicht geteilt

[edit] Schöne Variablennamen [/edit]

[Die Muhkuh]

Macht er / mach ich doch oder hab ich was übersehen?

Mensch, Markus Nicht wegeditieren

[marabu]

Hallo,

dieses IF-Statement ist für sich genommen nicht verbesserungsfähig, lediglich bessere Variablennamen könnten eventuell noch Pluspunkte bringen.

Grüße vom marabu

[Die Muhkuh]

Zitat von marabu:

dieses IF-Statement ist für sich genommen nicht verbesserungsfähig, lediglich bessere Variablennamen könnten eventuell noch Pluspunkte bringen.

Das ist klar. Ich hab der Einfachheit halber seine Variablennamen verwendet. Die kann er ja dann ändern, wie er mag.

[edit] Hab sie geändert [/edit]

[vsilverlord]

ok danke, ich glaub ich lass es dann mal so, dann ist halt die zeile ein wenig länger. ich hab schon ziemlich viele eigene funktionen xD

[Laufi]

Hallo!

Du kannst auch einfach am Anfang von deinem Programm Set8087CW($133f); schreiben dann gibt es keine Fehler beim teilen durch 0

Liebe Grüsse
Laufi

[Die Muhkuh]

Zitat von Laufi:

Du kannst auch einfach am Anfang von deinem Programm Set8087CW($133f); schreiben dann gibt es keine Fehler beim teilen durch 0

Was passiert, wenn Du es trotzdem machst? (Also was steht nachher in der zugewiesenen Variable?)

Und Fehlermeldungen unterdrücken ist nicht gerade sehr elegant, dann lieber programmseitig abfangen.

[Jelly]

Ic C# könnte man es so machen, aber Delphi solche Konstrukte leider nicht:

Code:

a = (b != 0) ? a / b : a;

Aber was hast du denn für ein Problem damit, deinen Code so zu verwenden wie du ihn hast

if b <> 0 then a := a / b; Das ist grad mal 1 Zeichen mehr

[spaxxn]

Result := IfThen(Divisor <> 0, Dividend/Divisor, Dividend);