ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
30.03.2009, 22:22
|
|
Участник форума
Регистрация: 21.03.2009
Сообщений: 207
Провел на форуме:
554850
Репутация:
119
|
|
art2222
ругается на строчку
TKeyType = (ktCapsLock, ktNumLock, ktScrollLock);
пишет
" expected ':' but '=' found "
может в uses чего еще добавить надо?
Последний раз редактировалось Nizhegorodets; 30.03.2009 в 22:24..
|
|
|
30.03.2009, 22:24
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
Пробел тоже не нужен, как это написать?
Делай так:
if (key in ['А'..'Я','а'..'я',' '] then key:=#0;
Последний раз редактировалось art2222; 30.03.2009 в 22:46..
|
|
|
|
30.03.2009, 22:29
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
ругается на строчку
TKeyType = (ktCapsLock, ktNumLock, ktScrollLock);
пишет
" expected ':' but '=' found "
может в uses чего еще добавить надо?
Писать до implementation или сразу после
type
TKeyType = (ktCapsLock, ktNumLock, ktScrollLock);
|
|
|
|
30.03.2009, 22:34
|
|
Участник форума
Регистрация: 21.03.2009
Сообщений: 207
Провел на форуме:
554850
Репутация:
119
|
|
art2222
Все исправил...огоньки загорелись...
А чтобы они мигали нужно через таймер действовать?
|
|
|
|
30.03.2009, 22:42
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
Все исправил...огоньки загорелись...
А чтобы они мигали нужно через таймер действовать?
Ну например так. Это уже от задумки зависит.
Код:
randomize;
a:=random(2);
if (a=0) then b:=false else b:=true;
a:=random(3);
case a of
0: SetLedState(ktCapsLock, b);
1: SetLedState(ktNumLock, b)
2: SetLedState(ktScrollLock, b);
end;
|
|
|
|
30.03.2009, 22:45
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
как при нажатии батона проверить: есть ли в edit1 рус буквы или пробелы
|
|
|
|
30.03.2009, 22:49
|
|
Участник форума
Регистрация: 21.03.2009
Сообщений: 207
Провел на форуме:
554850
Репутация:
119
|
|
art2222
Спасибо огромное)
|
|
|
|
30.03.2009, 23:08
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
как сделать билдер?
как при нажатии батона проверить: есть ли в edit1 рус буквы или пробелы?
|
|
|
|
31.03.2009, 00:01
|
|
Участник форума
Регистрация: 15.11.2006
Сообщений: 259
Провел на форуме:
2589211
Репутация:
151
|
|
Сообщение от НTL
как сделать билдер?
как при нажатии батона проверить: есть ли в edit1 рус буквы или пробелы?
Код:
procedure TForm1.Button2Click(Sender: TObject);
var i,n:integer;
str:string;
begin
str:=edit1.Text;
for i:=1 to length(str) do begin
for n:=192 to 255 do begin
if copy(str,i,1) = char(n) then delete(str,i,1);
end;
if copy(str,i,1) = char(32) then delete(str,i,1);
end;
edit1.Text := str;
end;
Посимвольно проверяй и всё...
|
|
|
|
31.03.2009, 00:18
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Не подходит
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид