Ich kann den Fehler nicht nachvollziehen und hoffe, dass mir hier jemand auf die Sprünge hilft.
Die Funktion ist im Prinzip die gleiche wie nachfolgende:
Delphi-Quellcode:
function VarStrtToInt( Value : Variant; Default : Integer = 0 ) : Integer;
begin
if not TryStrToInt( Value, Result ) then
Result := Default;
end;
Und die funktioniert.
Ich habe gerade auch mal eben eine zusätzliche Variable everwendet, falls man Result nicht benutzen kann - ohne Erfolg.
Gruß Patrick