[nblF-nblF*]

помогите пожалуйста исправить защиту от ввода недопустимых символов в компонент StringGrid1, можно вводить только вещественные числа.
Помогите плиз, очень срочно надо!

Код:

procedure TForm1.FormClick(Sender: TObject);
const m=3; n=3;
type klop=array[1..m,1..n] of byte;
var x,y:klop;i,j,k:byte;
  begin
k:=strtoint(labelededit1.Text);
i:=1;
while i<=stringgrid1.ColCount do
  begin
j:=1;
while j<=stringgrid1.RowCount do
  begin
x[i,j]:=strtoint(stringgrid1.Cells[i-1,j-1]);
if x[i,j]<=0 then y[i,j]:=x[i,j]*k else
y[i,j]:=x[i,j];
label1.Caption:=label1.Caption+#9+floattostr(y[j,i]);
j:=j+1;
  end;
i:=i+1;
label1.Caption:=label1.Caption+#13;
  end;
  end;

procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
   begin
case key of
'0'..'9':;
#8:;
'-':if length(labelededit1.Text)<>0 then key:=#0;
'.',',':begin if key='.'then key:=',' ;
if pos(',',labelededit1.Text)<>0 then key:=#0;
    end;
else key:=#0;
    end;
    end;


procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
  begin
case key of
'0'..'9':;
#8:;
'-':if length(StringGrid1.Cells)<>0 then key:=#0;
'.',',':begin if key='.'then key:=',' ;
if pos(',',StringGrid1.Cells)<>0 then key:=#0;
    end;
else key:=#0;
    end;
    end;
    end.

[NIch]

Подправь функцию под себя и пользуйся на здоровье...

Код:

// функция фильтрации ввода
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;

Работает на KeyPress и в TEdit...
Не позвоялет вводить недопустимые символы, ставить несколько запятых, ставить запятую не в том месте, меняет запятую на точку или наоборот