Delphi alternative zu strtod()?

[Whookie]

Ich bin gerade bei der Übersetznung eines Lexers von C nach Pascal und dort wird strtod() bzw strtod_l() verwendet um Zahlen aus Formeln zu wandeln.

Code:

double strtod(const char *nptr, char **endptr);
double _strtod_l(const char *nptr, char **endptr, _locale_t locale);

Ich habe nun nichts gefunden was dem in Delphi entspricht (TextToFloat benötigt bereits genaue Informationen über den zu wandelnten String).

Vielleicht gibts ja hier jemand der eine alternative dafür kennt?

[Horst0815]

StrToFloat,TryStrToFloat

sollte doch gehen

[Whookie]

Zitat von Horst0815:

StrToFloat,TryStrToFloat

leider passt das von der Parameterliste her nicht (und liefert vor allem keinen endptr zurück).

Meine momentane Lösung sieht (nach einem Blick auf TextToFloat) wie folgt aus:

Delphi-Quellcode:

// maybe have an overloaded Version with Extented result
function StrToDecimal(nptr: PAnsiChar; Var endptr: PAnsiChar; Const AFormatSettings: TFormatSettings): Double;
Var
  LDecSep: AnsiChar;
  LResult: Extended;
  LSaveNext: AnsiChar;
begin
  LDecSep := AnsiChar(AFormatSettings.DecimalSeparator);
  Result := 0;
  // decimal part (no sign -> its a token
  endptr := nptr;
  while (endptr^ >= #$30) And (endptr^ <= #$39) do // scan digits
    inc(endptr);

  // frac part ?
  if endptr^ = LDecSep then
  begin
    inc(endptr);
    while (endptr^ >= #$30) And (endptr^ <= #$39) do // scan frac-part
      inc(endptr);
  end;

  // exponent
  if (endptr^ = 'e') Or (endptr^ = 'E') then
  begin
    inc(endptr);
    if (endptr^= '+') Or (endptr^='-') then // exp can have a sign
      inc(endptr);

    while (endptr^ >= #$30) And (endptr^ <= #$39) do // scan exponent
      inc(endptr);
  end;

  if endptr <> nptr then // did we find a number?
  begin
    LSaveNext := endptr^;  // save and replace next char
    endptr^ := #0;         // TextToFloat needs #0 terminated number
    try
      If AnsiStrings.TextToFloat(nptr, LResult, fvExtended, AFormatSettings) Then
        Result := LResult;
    finally
      endptr^ := LSaveNext; // restore string
    end;
  end;
end;

Edit: Als Frage an die C-Profis hier bleibt noch ob strtod() noch zusätzliche schreibweisen für die Zahlen unterstützt?