ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
17.05.2009, 16:23
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
1) DirectoryExists - смысл? если можно сразу проверить при поиске папка это или файл
А я забыл как по другому проверить)
|
|
|
17.05.2009, 18:05
|
|
Познающий
Регистрация: 05.03.2007
Сообщений: 99
Провел на форуме:
744734
Репутация:
44
|
|
Сообщение от FindeR
Сообщение от MosVit
Сообщение от Mosvit
Подскажите как решить такую проблемку,
домустим у меня есть предложение (записано в msg:string), при нажатии на кнопку , нужно выполнить поиск слова введённого в Edit1 в предложении (MSG), и если это слово найдено, то записать его в Мемо1, если не найдено - то в Мемо2.
Так, что ли?  )
Код:
MSG := 'Привет! Как дела?';
if pos(edit1.Text, MSG) <> 0 then memo1.Lines.Add(Edit1.text)
Else memo2.Lines.Add(Edit1.text);
Да, спасибо!
А если мне допустим надо выполнить поиск слова не их одного Эдита, а из таблицы StringGrid1.
Т.е. например в ячейках СтрингГрида записаны в столбик слова, если какое-либо слово содержится в тексте msg, то записать это слово в memo1, если не содержится, то записать это слово в Мемо2.
|
|
|
|
17.05.2009, 18:16
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
Как сделать ctrl+alt+delete неактивным?
Последний раз редактировалось /Boom\; 17.05.2009 в 18:37..
|
|
|
|
17.05.2009, 18:43
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
Т.е. например в ячейках СтрингГрида записаны в столбик слова, если какое-либо слово содержится в тексте msg, то записать это слово в memo1, если не содержится, то записать это слово в Мемо2.
Вот так вроде:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i:=1 to StringGrid1.RowCount do
//Тут смотрим только первую колонку.
if pos(StringGrid1.Cells[1,i], MSG) <> 0 then memo1.Lines.Add(StringGrid1.Cells[1,i])
else memo2.Lines.Add(StringGrid1.Cells[1,i]);
end;
Как сделать ctrl+alt+delete неактивным?
Так
Код:
var
i : integer;
begin
i := 0;
{Отключаем Ctrl-Alt-Del}
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @i, 0);
end.
// Нужен unit WinProcs
// Для Alt-Tab: SPI_SETFASTTASKSWITCH
Последний раз редактировалось art2222; 17.05.2009 в 18:53..
|
|
|
|
18.05.2009, 10:06
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
Помогите плз! Мне надо поставить пароль на программу обычным edit'ом,допустим ввел пароль в едит если он правельный то вылазиет сообщение если нет то выхоит из программы.Искал в гугле с passsworddlg у меня ниего не получается.
Заранее очень благодарен!
|
|
|
|
18.05.2009, 11:33
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме:
1249808
Репутация:
149
|
|
у эдита ставишь свойство passwordchar равным *
простая проверка
if pass=edit1.text then application.MessageBox(PChar('твое сообщение'),'заголовок')
else exit;
|
|
|
|
18.05.2009, 14:01
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
Сообщение от RumShun
у эдита ставишь свойство passwordchar равным *
простая проверка
if pass=edit1.text then application.MessageBox(PChar('твое сообщение'),'заголовок')
else exit;
а где вписать сам пароль?
|
|
|
|
18.05.2009, 14:40
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
а где вписать сам пароль?
Ну в программе константой, или где нить еще мд5 хеш.
|
|
|
|
18.05.2009, 14:52
|
|
Познающий
Регистрация: 14.02.2008
Сообщений: 62
Провел на форуме:
335706
Репутация:
4
|
|
Сообщение от art2222
Ну в программе константой, или где нить еще мд5 хеш.
Можешь полстью код написать?
|
|
|
|
18.05.2009, 16:09
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
Можешь полстью код написать?
Код:
const
pass = 'abcd';
....
if pass=edit1.text then application.MessageBox(PChar('твое сообщение'),'заголовок')
else Application.Terminate;
....
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
