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? :angel:
Wäre nett... :-D

[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! :-D