Разделитель для formatfloat()
Можно ли для функции formatfloat() задать десятичный разделитель (как в Дельфи переменная DecimalSeparator)
Неужели только так извращаться?
for j:=1 to LENGTH(Memo25.Lines) do
begin
if COPY(Memo25.Lines,j,1)=',' then TempSTR := TempSTR+'.'
else TempSTR:=TempSTR+COPY(Memo25.Lines,j,1);
end;
Memo25.Lines:=TempSTR;
Неужели только так извращаться?
for j:=1 to LENGTH(Memo25.Lines) do
begin
if COPY(Memo25.Lines,j,1)=',' then TempSTR := TempSTR+'.'
else TempSTR:=TempSTR+COPY(Memo25.Lines,j,1);
end;
Memo25.Lines:=TempSTR;