Функция устанавливает "правильный" decimal separator(разделитель целой и дробной части), контролирует кол-во и положение decimal separator...
Позволяет ввод только цифр, BackSpace, Decimal Separator...
Код:
// функция фильтрации ввода
function FiltrInputFigures(Edit: TEdit; Key: Char): Char;
var
vr_Pos, vrPos, vrLength, vrSelStart: byte;
const
I: byte = 1;
begin
with Edit do
begin
vrLength := Length(Text); // определяем длину текста
vrPos := Pos(',', Text); // проверяем наличие запятой
vr_Pos := Pos('.', Text); // проверяем наличие запятой
vrSelStart := SelStart; // определяем положение курсора
end;
Result := Key;
Case Key of
'0' .. '9': // если нажата цифра
begin
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Result := #0; // "погасить" клавишу
end;
',', '.': // если нажата точка или запятая
begin
if (vr_Pos > 0) or (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0)
then
Result := #0 // "погасить" клавишу
else
Result := DecimalSeparator; // всегда заменять точку на запятую
end;
#8:
; // позволить удаление знаков клавишей 'Back Space'
else
Result { Key } := #0; // "погасить" все остальные клавиши
end;
end;
//****************************************************
// Получение информации о системном разделителе дробной части
function GetLocaleInformation(Flag: Integer): string;
var
pcLCA: array [0 .. 20] of Char;
begin
if GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, Flag, pcLCA, 19) <= 0 then
pcLCA[0] := #0;
Result := pcLCA;
end;