Moin
@marabu: Deine Funktion wird bei der deutschen Schreibweise eines Gleitkommawertes (23
,456)immer FALSE zurückgeben
Die Funktion müsste dann etwas umgeändert werden:
Delphi-Quellcode:
function TryStrToFloat(S: string; out Value: Extended): Boolean;
var
code: Integer;
begin
//--Komma durch Punkt ersetzen
S:= StringReplace(S, ',','.',[]);
Val(S, Value, code);
Result := (Code = 0);
end;
oder diese Funktion benutzen:
Delphi-Quellcode:
function IstGleitkommazahl(S: String; out Value: Extended): Boolean;
begin
Result := TextToFloat(PChar(S), Value, fvExtended);
end;