Macht (hoffentlich) nichts anderes, aber verändert nicht den Parameter und vergleicht im Fehlerfall nicht immer beide Werte:
Delphi-Quellcode:
function GregorToStr(n:longint):
String;
begin
if (n >= 1)
and (n <= 3074324)
then
Result := DateTimeToStr(n - 115859)
else
raise Exception.CreateFmt('
GregorToStr(%d) - invalid n', [n])
end;
Nicht wirklich eine Verbesserung, fand es aber so schöner
€: Vielleicht kann jemand, der mehr Ahnung hat was zu schreiben... Parameter verändern legt eine weiter lokale Kopie an? Bringt
const hier was um evtl Schleifendurchläufe zu verbessern?