'Taxigeometrie' Rekursiv lösen. [Anzahl kürzester Strecken zwischen zwei Punkten]

[FF]

ok, die lösung war so einfach wie doof.
ich hab den c++ in delphi code umgeschrieben, und demensprechend angepasst.
das return wurde zu result.
was ich nicht wusste, ist, das result die funktion nicht beendet :<
insofern wurde mein zähler immer wieder auf 0 gesetzt.
delphi suckt.

[Crash-Override]

ich hab den c++ in delphi code umgeschrieben

...

Das war vernünftig

delphi suckt.

...

O.O nein, es ist äußerst praktisch das result nicht beendet (wäre auch insofern dämlich, da es ja nur eine Variablezuweisung ist, nicht wie in C eine funktion. So kann man in Delphi immer schön platz sparen z.B.

Code:

function x: Integer;
begin
  result := 0;
  if x then
    result := 1;
end;

oder so. Jedenfalls wenn du nach Result beenden willst schau dir mal den "exit"-Befehl an.

[FF]

function x: Integer;
begin
result := 0;
if x then
result := 1;
end;

...

wäre woander

Code:

function x: Integer;
{
  if x
   return 1;
  else
   return 0;
}

oder so in der art.


aber egal, danke nochmal an dfyx und magor, funzt ja jetzt.