Funktion deklarieren oder nicht?

[Ergosquare]

Sorry, mein Fehler, das mit dem Semikolon hätte ich sehen können.

Das zweite Problem besteht weiterhin.

Eine Warnung bekomme ich nicht.

MfG Ergosquare

[DeddyH]

2 Möglichkeiten:

Delphi-Quellcode:

function SomeFunction: integer;
begin
  Result := 42; (* Result *)
end;

oder auch

Delphi-Quellcode:

function SomeFunction: integer;
begin
  SomeFunction := 42; (* Funktionsname *)
end;

Auch nach 20-maligem Drübergucken habe ich in Deinem Code keine der beiden Möglichkeiten entdecken können. Du musst also vor dem rekursiven Aufruf der Funktion einen Wert zuweisen, sonst steht da irgendetwas drin, aber nichts Definiertes. Steppe doch einmal durch und schau Dir den Wert von za nach dem Aufruf an. Nach meinem Dafürhalten müsste da ziemlicher Nonsens drinstehen.