[nblF-nblF*]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

// функция фильтрации ввода 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...
Не позвоялет вводить недопустимые символы, ставить несколько запятых, ставить запятую не в том месте, меняет запятую на точку или наоборот