Какую надо задать маску для MaskEdit, чтобы можно было вводить только цифры (притом с запятой)?

[Polotenchik]

Вроде нашел:
В событии Change:

var
i : integer;
c : char;
s : string;

...

// результирующая строка:
s := '';
// проходим по всем символам исходной строки:
for i:=1 to Length(Edit.Text) do
begin
// берем текущий символ:
c := Edit.Text[i];
// Проверяем его на принадлежность к цифрам:
if (c >= '0') and (c <= '9') then s := s + c;
// Или знакам "точка" или "запятая":
if (c = '.') or (c = ',') then s := s + c;
end;
// Присваеваем полю результирующую строку:
Edit.Text := s;

[Polotenchik]

Блин! тут тоже косяк! Можно несколько запятых ввести! Надо как-то сделать так:

if c = ',' then
если запятой еще не было then
s := s + c;

[Таптыгин]

попробуй побаловаться с этими функциями TryStrToFloat и TryStrToInt и используй вместо MaskEdit обычный Edit. если ты точно уверен, что вместо запятой не поставят точку в дробных числах то TryStrToFloat сработает

[Denager]

В событии onKeyPress написать следующий код

case key of //key - передаваемый символ
  '0'..'9',#8,#13:key:=key; //Разрешаем вводить цифры, бэкспэйс, энтер...и т.д
  ',': if pos(',',MaskEdit1.Text)=0 then key:=key else key:=#0; //Если запятая не встречается, то вводим ее, если уже есть, то присваиваем key - chr(0);
  else key:=#0; //В остальных случаях ничего не делаем
end;

Алогично обрабатывайте текст в onChange.

[DeKot]

В onKeyPress можно еще следующим образом ограничить ввод цифр

 if not (Key in ['0'..'9',',']) then Key:= #0;

[Polotenchik]

Сообщение от Denager

В событии onKeyPress написать следующий код

case key of //key - передаваемый символ
  '0'..'9',#8,#13:key:=key; //Разрешаем вводить цифры, бэкспэйс, энтер...и т.д
  ',': if pos(',',MaskEdit1.Text)=0 then key:=key else key:=#0; //Если запятая не встречается, то вводим ее, если уже есть, то присваиваем key - chr(0);
  else key:=#0; //В остальных случаях ничего не делаем
end;

Алогично обрабатывайте текст в onChange.

Все правильно и код рабочий, но одна и та же проблема: можно скопировать текст из любого редактора и вставить в этот edit.

[Denager]

Тогда как вариант, в том же onChange можно очищать буфер обмена

clipboard.AsText:='';

В Uses добавить clipbrd

[Таптыгин]

блин да я апсолютно не вижу проблемы, зачемотслеживать ввод символов если проверку можно сделать всего Edit'а, на форму кидаешь эдит и баттон после ввода текста в эдит считываешь его по нажатию кнопки и сколько запятых ты не вводи, сколько букаф, ты точноотследишь целое число или дробное

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
 j: Extended;
begin
 if not TryStrToInt(Edit1.Text, i) and not TryStrToFloat(Edit1.Text, j) then
  begin
   Application.MessageBox('Введите число!', '', MB_ICONWARNING + MB_OK);
   Edit1.Text:='';
  end;
end;

[Polotenchik]

Сообщение от Denager

Тогда как вариант, в том же onChange можно очищать буфер обмена

clipboard.AsText:='';

В Uses добавить clipbrd

Да, но надо чтобы нельзя было копировать только текст, а цифры та должны копироваться.

Таптыгин, ну хотелось бы разобраться именно с едит.

[Denager]

Сообщение от Polotenchik

Да, но надо чтобы нельзя было копировать только текст, а цифры та должны копироваться.

Тогда такой вариант могу предложить
В onChange пиши

begin
If ClipBoard.HasFormat(CF_TEXT) then
  if not AllIsFloat(clipboard.AsText) then
    clipboard.AsText:='';
end;

Функция AllIsFloat:

Function AllIsFloat (const S : String) : Boolean;
var i : Extended;
Begin
 Result := TryStrToFloat(S, I);
End;