VPF::Фильтрация символов... - Форум программистов

pomogite

Дата 3.5.2006, 15:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) pomogite - 3.5.2006, 15:44

Alexeis

Дата 3.5.2006, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

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

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

XSInet

Дата 3.5.2006, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 4.1.2006

Репутация: нет
Всего: нет

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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Код


OnKeyPress()

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

Guedda

Дата 3.5.2006, 15:56 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Код


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

--------------------

Ll 2

Yanis

Дата 3.5.2006, 15:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Нужно создать константу - множество с набором/последовательностью запрещённых символов, а затем в прогремме при помощи оператора 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;

Это сообщение отредактировал(а) Yanis - 3.5.2006, 16:06

--------------------

*щёлк*

pomogite

Дата 3.5.2006, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

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

Код


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.

Это сообщение отредактировал(а) pomogite - 3.5.2006, 16:15

Yanis

Дата 3.5.2006, 16:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

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

)

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

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

--------------------

*щёлк*

Alexeis

Дата 3.5.2006, 16:28 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

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

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

--------------------

pomogite

Дата 3.5.2006, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

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

Yanis

Дата 3.5.2006, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

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

)

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

и....

--------------------

*щёлк*

Alexeis

Дата 3.5.2006, 16:37 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

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

Alexeis

Дата 3.5.2006, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

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

Это сообщение отредактировал(а) alexeis1 - 3.5.2006, 17:04

--------------------

pomogite

Дата 3.5.2006, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »