Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.27;
Скачать: CL | DM;

Вниз

Функция Pos?   Найти похожие ветки 

 
tolstiak   (2005-02-08 17:30) [0]

Проблема такая функция Pos всегда равна "0"...

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Pos ("1",Edit1.Text)>0 then Key:=#0;
end;

поидее при нажатии "1" дожно блокироваться нажатие любой другой клавиши, а этого не произходит... :((
на Delphi 6 этот код работает нормально а на Delphi 8 for the Microsoft .NET Framework не работает...


 
Anatoly Podgoretsky ©   (2005-02-08 17:57) [1]

Идея неверная, все равно нажимать какую клавишу, блокироваться будет если в Edit1.Text есть единица, хоть нажимай 9


 
Defunct ©   (2005-02-08 17:58) [2]

на VB for Microsoft .NET Framework такой код тоже работать не будет.


 
tolstiak   (2005-02-08 18:07) [3]

> Anatoly Podgoretsky
ну-да... опечалка вкралась... конечно ПОСЛЕ нажатия "1" в поле Edit1

> Defunct
почему?... если есть фунция она не работает... на D6 этот же код работает...


 
Dmitry_04   (2005-02-08 18:08) [4]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key="1" then Key := #0;
end;


 
Defunct ©   (2005-02-08 18:22) [5]

tolstiak   (08.02.05 18:07) [3]
> почему?...

вариантов не так много. кодировка.
NET любит unicode, "1" в unicode <> "1"

нет под рукой D8 чтобы проверить.


 
tolstiak   (2005-02-08 18:42) [6]

>Dmitry_04
в Вашем коде на нажатие "1" не будет реагировать а на остальные сколько угодно... весь смысл. если один раз клавиша была нажата то блокируется все... а "1" это как пример...

> Defunct
а есть ли методы борьбы с этим?


 
Defunct ©   (2005-02-08 21:22) [7]

> а есть ли методы борьбы с этим?

Например так:

var
 S: String;

begin
 S := TEdit(Sender).Text;
 if Pos( "1", S) <> 0 then ...
end;

Поидее Delphi должен нормально приравнивать WideString к String.


 
tolstiak   (2005-02-09 16:53) [8]

> Defunct
гыггыгг... :))))  а так работает...
спасибо!!!



Страницы: 1 вся ветка

Текущий архив: 2005.02.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.033 c
6-1103390843
frEE)stylEr
2004-12-18 20:27
2005.02.27
ПОМОГИТЕ с получением e-mail !!!!


1-1108317903
mr-jack
2005-02-13 21:05
2005.02.27
stringGrid редактирование 1ой колонки


14-1107858818
Lancelot
2005-02-08 13:33
2005.02.27
Графики выполнения проектов


14-1107467635
Гость
2005-02-04 00:53
2005.02.27
Чем чистить линзу на сидюке


1-1108401404
yarvu
2005-02-14 20:16
2005.02.27
ActiveX HTML