Ersatz für TryStrToInt?

[hincapie]

Hallo,
ich suche nach einem Ersatz für die Funktion TryStrToInt, da ich D5 verwende und D5 diese Funktion nicht kennt.
Auch die Suche und Google konnten mir nicht weiterhelfen.
Hat vielleicht jemand eine entsprechende Funktion zur Hand?
Wäre nett...

[jakobwenzel]

So machens die Borländer:

Delphi-Quellcode:

function TryStrToInt(const S: string; out Value: Integer): Boolean;
var
  E: Integer;
begin
  Val(S, Value, E);
  Result := E = 0;
end;

[ConstantGardener]

...schau mal unter StrToIntDEF (Value,Def) ...

gruß ConstantGardener

[hincapie]

an alle: Danke schön!