"." oder "," - Wie herausfinden?

[pszopp]

Wie klappts damit?

Delphi-Quellcode:

function ConvertStr(const aStr : String) : Double;
var OldSep : Char;
begin
  try
    Result := StrToFloat(aStr);
  except
    OldSep := DecimalSeparator;
    if (OldSep = '.') then begin
      DecimalSeparator := ',';
    end 
    else begin
      DecimalSeparator := '.';
    end;
    
    Result := StrToFloat(aStr);
    DecimalSeparator := OldSep;

  end; // try
end; // ConvertStr

Gruß,
pszopp