Registriert seit: 31. Aug 2005
Ort: Ingelheim am Rhein
141 Beiträge
FreePascal / Lazarus
|
Re: Ersatz für TryStrToInt?
5. Sep 2007, 16:15
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;
Jakob Wenzel "My store now sells Ninja Weapons!"
Comicverkäufer bei den Simpsons
|