Wenn ich Result nicht initialisiere funktioniert der folgende Code:
Einfach mal alles durchlesen.
http://www.delphipraxis.net/170301-r...efensuche.html
Tipp: Wenn dein Code nicht funktioniert und du weißt nicht warum,
dann könnte man den Debugger verwenden und sich ansehn, was der Code überhaupt macht und was da nicht so läuft, wie man es gern hätte.
if ergebnis = 1 then
und
if Ord(ergebnis) then
kommt fast auf das Selbe raus.
Hier kommt es sogar genau auf's Selbe raus da
ordinary
nur positive Werte enthält.