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

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

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

syan66

Дата 5.5.2006, 10:50 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Код


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

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

Загрузка ...

Амеба

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

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

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

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

syan66

Дата 5.5.2006, 12:56 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Alexeis

Дата 5.5.2006, 13:05 (ссылка)

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

Загрузка ...

Амеба

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

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

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

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

vv3

Дата 5.5.2006, 14:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

Yanis

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

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

Загрузка ...

Эксперт

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

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

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

)

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

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

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

*щёлк*

vv3

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

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

Загрузка ...

Шустрый

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

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

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

)

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

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

SniyLSD

Дата 7.7.2008, 12:25 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Код


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

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

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