StringReplace

[qb-tim]

Hi,

mein Delphi benutzt in Decimalzahlen Komma. Ich habe eine Funktion, in der die Eingaben auf ihrer Gültigkeit überprüft werden, wobei aber auch Punkte in Decimalzahlen zugelassen werden sollen:

Delphi-Quellcode:

function ValidateNumber(s: String): Boolean;
var i: Integer;
    t: Real;
begin
  Result := True;
  for i := 1 to Length(s) do
    if s[i] in ['-', '0'..'9', '.', ','] = False then
      Result := False;
  StringReplace(s, '.', ',', [rfReplaceAll]);
  try
    t := StrToFloat(s);
  except
    Result := False;
  end;
end;

Wenn aber s z.B. '0.5' ist, dann liefert StrToFloat(s) einen Fehler, obwohl StringReplace eigentlich den Punkt in einen Komma hätte verwandeln sollen.

Mit einem Schritt-für-Schritt durchlauf der Funktion habe ich bemerkt, dass nach StringReplace s immer noch Punkte enthält!

Was ist schief gegangen?

[mkinzler]

Schau dir mal die Konstanten DecimalSeparator und ThousandSeparator oder die uberladenen Versionen der Konvertierungsrotinen mit Foramtangabe an.

[qb-tim]

@mkinzler: Das weiß ich, aber mich wundert trotzdem, warum der StringReplace nicht funzt!

[mkinzler]

Wenn du das weist, warum dann der Umstand?
Was bezweckst du mit der Schleife?
Dein Aufruf von StringReplace änder ja nichts, da du den Rückgabewert verwirfst:
s := StringReplace(s, '.', ',', [rfReplaceAll]);

[qb-tim]

Ich kann es nicht glauben, dass ich das vergessen habe! Und dann auch mehrmals übersehen!

(Na ja, kann schon mal passieren.... )