Ich habe deinen Code mal bei mir eingefügt und es jetzt komplett rausfinden können, wo der Fehler liegt!
Delphi-Quellcode:
procedure B_kuerzen (ErgebnisZaehler, ErgebnisNenner : Integer);
var ggTeiler:integer;
begin
if (ErgebnisZaehler <> 0) AND (ErgebnisNenner <> 0) then
begin
ggTeiler := ggT(ErgebnisZaehler, ErgebnisNenner);
ErgebnisZaehler := ErgebnisZaehler DIV ggTeiler;
ErgebnisNenner := ErgebnisNenner DIV ggTeiler;
end;
end;
Jetzt gehts! Es liegt wirklich daran, dass eine Variable nicht gleich heißen darf, wie eine Funktion!
Edit: Ich hab mal diesen Parameter ganz weggenommen... den brauchst du doch gar nicht
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg