Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
Delphi 10 Seattle Enterprise
|
AW: POS findet was das ich nicht verstehe... ?
28. Mär 2014, 14:01
richtig...
Man kann es auch wie bei StrToInt, TryStrToInt und StrToIntDef machen?
Oder ParamStr, was beim Fehlen einen Leerstring liefert.
Die Basis ist aber immer TryStrToInt
Delphi-Quellcode:
function TryFoo( const AInput : TSomething; out AOutput : TDifferent ) : Boolean;
begin
...
end;
function Foo( const AInput : TSomething ) : TDifferent;
begin
if not TryFoo( AInput, Result ) then
raise EFooException.Create( 'Please try something different' );
end;
function FooDefault( const AInput, ADefault : TSomething ) : TDifferent;
begin
if not TryFoo( AInput, Result ) then
Result := ADefault;
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
Geändert von Sir Rufo (28. Mär 2014 um 14:04 Uhr)
|