Delphi-Quellcode:
function TObjectPropertiesHandler.getObjectLeft(): double;
var str,str2 :
string;
ds:TFormatsettings;
i : integer;
begin
try
str := getObjectProperty('
LEFT');
str := StringReplace(str,'
,',DecimalSeparator,[rfReplaceAll]);
str := StringReplace(str,'
.',DecimalSeparator,[rfReplaceAll]);}
//Console.WriteLine(str);
result := StrToFloat(str);
except
on E:
Exception do begin
Console.WriteLine(E.
Message);
raise E;
end;
end;
end;
Der DecimalSeparator wird auch von anderen Funktionen wieder zurück gesetzt. Ein umsetzen des selbigen wird grundsätzlich überhaupt nicht empfohlen, daher lieber den String auf eine kompatible Form bringen - unabhängig welcher nun der aktuelle Separator ist.
/EDIT: Ups, hier gehts um .NET - sorry, alles was hier steht bezieht sich auf die
VCL ohne .NET !!