Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Фильтрация символов...

Автор: pomogite 3.5.2006, 15:43

Как можно в Delphi 7 сделать так чтобы в TEdit можно было вводить только определённые символы?

Автор: Alexeis 3.5.2006, 15:46

На палитре additional есть компонент TMaskEdit - он для этого и служит.

Автор: XSInet 3.5.2006, 15:46

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = 'L' then MessageBoxA(0, 'LOL', nil,0);
end;

Событие OnKeyPress

Автор: Matematik 3.5.2006, 15:47

Код


OnKeyPress()

case key  of
  'A'..'Z' : key := #0;
  {...}
end

Автор: Guedda 3.5.2006, 15:56

Код


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', #27]) then Key := #0;
end;

Автор: Yanis 3.5.2006, 15:59

Нужно создать константу - множество с набором/последовательностью запрещённых символов, а затем в прогремме при помощи оператора in проверять наличие символа в множестве:

Код


procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
const
  s = ['a', 'b', 'c'];
var
  c: Char;
begin
  c := 's';
  if c in s then
    begin
      { что то делаем }
    end;
end;

Автор: pomogite 3.5.2006, 16:10

как можно сделать фильтрацию вот в этом коде?

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdWhois, StdCtrls, jpeg, ExtCtrls, Spin;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    IdWhois1: TIdWhois;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var line,Findresult:string;
ipos:integer;

begin
 Memo1.Clear;
 FindResult:=IdWhois1.Whois(Edit1.Text);
 while Length(FindResult)> 0 do
    begin
      ipos:=Pos(#10,FindResult);
      Line:=Copy(FindResult,1,ipos - 1);
      Memo1.Lines.Add(Line);
      Delete(FindResult,1,Length(Line)+1);
      Memo1.Perform(WM_VSCROLL, SB_TOP, 0); 
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.show;
end;

end.

Автор: Yanis 3.5.2006, 16:16

Цитата(pomogite @ 3.5.2006, 16:10

)

а где в TmaskEdit нужно указывать какие символы можно вводить?

А в справку не пробовал заглядывать?

Автор: Alexeis 3.5.2006, 16:28

pomogite, какие символы должны оставаться? Маскедит - требует определенного числа символов иначе остальное будет заполнено пробелами. Если число символов неизвестно то удобней разбирать строку. Способ с обработчиком KeyPress имеет один недостаток - если текст вставлять при помощи буфеа обмена, то он пойдет в обход этого обработчика.

Уточните задачу, какие символы не должны попадать и что за данные вводятся

Автор: pomogite 3.5.2006, 16:32

Вводится ip адресс

Автор: Yanis 3.5.2006, 16:33

Цитата(pomogite @ 3.5.2006, 16:32

)

Вводится ip адресс

и....

Автор: Alexeis 3.5.2006, 16:37

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  maskedit1.EditMask := '000.000.000.000;1;';
end;

Добавлено @ 16:41
если не нравятся подчеркивания, то

Код


procedure TForm1.FormCreate(Sender: TObject);    
begin    
  maskedit1.EditMask := '000.000.000.000;1; ';    
end;

Автор: pomogite 3.5.2006, 16:50

а как сделать чтоб урл вводить тоесть только / . и англ. буквы

Автор: Alexeis 3.5.2006, 17:03

pomogite, с этим хуже, длина текста не определена и красивого решения уже не получится, нужно будет обрабатывать событие onChange, а в нем перебирать символы и проверять все ли символы допустимы.
Для коректного решения этой задачи можно воспользоваться "тяжелой артилерией" - регулярными выражениями и проверять имеется ли в тексте регулярное выражение соответствующее интернет адресу если да, то брать его, а лишний текст удалять. Но это не простой вариант, кроме того придется скачивать специальный компонент и учить синтаксис регулярных выражений.

Автор: pomogite 3.5.2006, 17:07

мда похоже придётся оставить всё как есть...

Автор: syan66 5.5.2006, 10:50

Ой, ну зачем же так все усложнять......

Код


const LegalChar =  ['-'..'Z',
                    '\',
                    '_',
                    'a'..'z',
                    Chr(VK_BACK),
                    Chr(VK_ESCAPE),
                    Chr(VK_RETURN),
                    Chr(VK_Delete)];

Для ручного ввода:

Код


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in LegalChar) then Key:= Chr(0);
end;

Для copy/paste:

Код


procedure TForm1.Edit1Change(Sender: TObject);
var i: Integer;
begin
 for i:= 1 to Length(Edit1.Text) do
    if not (Edit1.Text[i] in LegalChar) then
        begin
        ShowMessage('Îé!');
        Edit1.Text:= Copy(Edit1.Text, 1, i - 1);
        Exit;
        end;

Автор: Alexeis 5.5.2006, 12:10

syan66, и что ваш код обнаружит ошибку в такой строке
www.http://ya.ru.
Я же сказал для КОРРЕКТНОЙ! - кроме того в строке могут идти параметры для php
например адресс этого вопроса
http://forum.vingrad.ru/index.php?showtopic=94422&st=15
правельный, а ваш код скажет, что нет...

Автор: syan66 5.5.2006, 12:56

Отлично! А правила поменять нельзя? В данном конкретном случае (для url) :
1. добавить в set недостающие символы
2. описать правило, по которому http:// всегда Pos(1) ????

Автор: Alexeis 5.5.2006, 13:05

syan66, О! Как раз это и делает TRegExpr - красиво, быстро, а главное унифицировано. Более того позволяет гибко менять эти самые правила без изменения исходного кода!

Автор: vv3 5.5.2006, 14:24

Да, я же не против... Просто я лично не люблю сторонние компоненты, которые через год искать приходится, поскольку Delphi переустанавливал, необходимости в них не было, потом старый проект поднять приходится, а тут... Class not found
(syan66 - that's me)
smile

Автор: Yanis 5.5.2006, 16:33

Цитата(vv3 @ 5.5.2006, 14:24

)

поскольку Delphi переустанавливал

Не все же так часто свои проекты переделывают...

Автор: vv3 5.5.2006, 16:48

Цитата(Yanis @ 5.5.2006, 16:33

)

Не все же так часто свои проекты переделывают...

Ага... Вот в том-то и дело, что нечасто. smile

Автор: SniyLSD 7.7.2008, 12:25

А как сделать, чтобы определенны й символ, если печатается в TEdit, то только первым, или вообще не печатается, вроде код должен получиться таким :

Код


 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 case key of
  '0'..'9',#8:;
  '-':<здесь должен быть дополнительный оператор>;
  else
  key:=chr(0);
  end;
end;

какой оператор нужно дописать? нужно сделать, чтобы знак '-' печатался только в начале или вообще не печатался, если первый символ уже напечатан.