POS findet was das ich nicht verstehe... ?

[Sir Rufo]

Zitat von himitsu:

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;

[Garfield]

Zitat von Sir Rufo:

Die Basis ist aber immer TryStrToInt

Ich dachte val. Habe das auch genommen, weil es kein StrToUInt gibt.

[himitsu]

Wenn du mehr brauchst, dann StrToInt64. (andersrum ist die 64 einfach nur überladen, da dort automatisch entschieden wird, anhand des Parameters)

[Garfield]

Könnte ich machen. Aber die Werte in den Strings werden in LowPart und HighPart eines TULargeInteger eingetragen.

[Sir Rufo]

Zitat von Garfield:

Zitat von Sir Rufo:

Die Basis ist aber immer TryStrToInt

Ich dachte val. Habe das auch genommen, weil es kein StrToUInt gibt.

Jupp, da wird als Basis die System-Funktion System.Val benutzt.
Der Code-Wert wird aber dort nur auf = 0 oder <> 0 ausgewertet, so dass man diese Teile auch problemlos so hätte deklarieren können:

Delphi-Quellcode:

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

function StrToInt(const S: string): Integer;
begin
  if not TryStrToInt(S, Result) then ConvertErrorFmt(@System.SysConst.SInvalidInteger, [S]);
end;

function StrToIntDef(const S: string; Default: Integer): Integer;
begin
  if not TryStrToInt(S, Result) then Result := Default;
end;

[Garfield]

Gut. Damit verstehe ich Dich.