C Code - ? Operator nach Delphi übersetzen

[Horst0815]

wie müsste ich folgenden C Code richtig übersetzen

Code:

return (0 == melody) ? 0 : ((boosts & (1 << voice_nr)) ? sample : THREEQUARTERS(sample));

mein Versuch

Delphi-Quellcode:

 if 0 = melody then result := 0 else result := ((boosts and (1 shl voice_nr))) else result := sample else result := THREEQUARTERS(sample));

was natürlich quark ist

[Furtbichler]

So vielleicht?

Delphi-Quellcode:

if melody=0 then 
  return 0
else 
  if boosts and 1 shl voice_nr  <> 0 then 
    return sample 
  else 
    return threequaters(sample);

[Horst0815]

Hatte es auch grad hinbekommen nachdem ich den Code Formatiert hatte:oops: Danke Trotzdem

[Der schöne Günther]

Da hatte ich erst heute wieder eine Diskussion drüber. Der ternäre Operator war das allererste was ich meinen ersten Tagen Delphi "vermisst" hatte. Mittlerweile bin ich froh, dass es die Sprache einem so schwer macht, unübersichtlichen Code zu schreiben :wink:

Ich meine - Wie lang braucht man um diese schon fast typische Zeile C-Code zu durchblicken. Und wie lang beim Delphi-Pendant.

[Furtbichler]

Zitat:

Zitat von Der schöne Günther (Beitrag 1226047)

dass es die Sprache einem so schwer macht, unübersichtlichen Code zu schreiben.

Schrottcode ist sprachenunabhängig. Es kommt immer auf den Programmierer an.

Du hast mit modernen Programmiersprachen viel mehr Möglichkeiten, als umsichtiger und guter Programmierer kompakten Code zu schreiben, der leicht verständlich ist. Wer es mit dem '?' übertreibt, ist halt ein schlechter Programmierer.

In Delphi kann man die größte Grütze schreiben, die keine Sau mehr versteht. Es reicht schon eine Methode mit mehr als 50 Zeilen oder Klassen mit zu vielen Methoden, oder gar keine Klassen, sondern rein prozeduralen Code. Delphi bietet das ja, quasi als Ausgleich zum fehlenden '?' :mrgreen:

Delphi ist ein Relikt. Leider. Aber darum geht es hier ja nicht.