主页 / 问题 / 1307725
Accepted
Татьяна
Asked:2022-07-22 18:02:39 +0000 UTC2022-07-22 18:02:39 +0000 UTC

在Edit中输入值

  • 772

如何在编辑中显示特殊字符？可以在 Edit1.Text 中指定要删除的字符吗？

if s[i] in ['!', '+'] then
    Delete(s, i, 1)

如果我喜欢这样

if s[i] in CharinSet(edit1.Text) // то получаю ошибку
    Delete(s, i, 1)

在这种情况下怎么办？

delphi

2 个回答

  1. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   //if Key in ['0'..'9'] then key :=#0; //ввод букв и символов
   //if not(key in['0'..'9',#8])then key:=#0;  //ввод только цифр
   //if not(key in['А'..'Я','0'..'9','а'..'я',#8])then key:=#0;  //ввод всего кроме символов
end;
    • 2
  2. Best Answer
    var
  testSet: TSysCharSet;
  i: Integer;
begin
  // Преобразуем строку, введенную в Edit1 в множество
  testSet := [];
  for i := 1 to Length(Edit1.Text) do
    Include(testSet, Edit1.Text[i]);

  // Проверяем символы строки на принадлежность множеству
  for i := Length(s) downto 1 do begin  // Принципиально, что цикл в обратном порядке
    if CharinSet(s[i], testSet) then
      Delete(s, i, 1);
  end;
end;
    • 1

相关问题