ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
11.11.2009, 22:37
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Сообщение от Adekvatnyj
Как полностью удалить все дельфи из компа?
"Установка и удаление программ" 
Ну или Smarty Uninstaller'ом попробуй.
|
|
|
11.11.2009, 22:37
|
|
Участник форума
Регистрация: 28.10.2009
Сообщений: 129
Провел на форуме:
460561
Репутация:
67
|
|
Решил проблемму, сейчас потру посты.
Решение было в нестыковке дельфи 2010 с 7.
Удалил вручную все программы дельфи и RAD, компиляторы, из диска С, почистил реестр, и установил начисто дельфи 7.
П.С. простым аннинсталлером чето нехотело, долго очень думало.
|
|
|
|
12.11.2009, 17:19
|
|
Участник форума
Регистрация: 12.11.2008
Сообщений: 146
Провел на форуме:
592199
Репутация:
21
|
|
подскажите плиз.
var
s,m,p:string;
begin
//это дано
s:=xxxx@mail.ru:12345;
//Надо получить следующие
m:=xxxx;
p:=12345;
|
|
|
|
12.11.2009, 17:50
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Решение не оптимальное, но должно работать
i:=1;
while s[i]<>'@' do
begin
m:=m+s[i];
i:=i+1;
end;
for j:=i to length (s) do
if s[i]='1' or '2' or '3' or '4' or '5' or '6' or '7' or '8' or '9' or '0' then
p:=p+s[i];
|
|
|
|
12.11.2009, 17:58
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от denjf
подскажите плиз.
var
s,m,p:string;
begin
//это дано
s:=xxxx@mail.ru:12345;
//Надо получить следующие
m:=xxxx;
p:=12345;
Вроде так, писал прямо тут.
Код:
var m, p: string;
m := Copy(s, 1, pos('@', s)-1);
p := Copy(s, pos(':', s)+1, length(s)-pos(':', s));
Последний раз редактировалось =Zeus=; 12.11.2009 в 18:02..
|
|
|
|
12.11.2009, 17:59
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от Thenno
Решение не оптимальное, но должно работать
i:=1;
while s[i]<>'@' do
begin
m:=m+s[i];
i:=i+1;
end;
for j:=i to length (s) do
if s[i]='1' or '2' or '3' or '4' or '5' or '6' or '7' or '8' or '9' or '0' then
p:=p+s[i];
Извини, но твой вариант очень медленный. В данном случае если автор хочет проверять списки (как я понимаю), то чем меньше кода тем лучше. И пароль не всегда будет состоять из цифер, так что проверка на 1-9 ни к чему. Хотя выбирать автору вопроса.
Последний раз редактировалось =Zeus=; 12.11.2009 в 18:04..
|
|
|
|
12.11.2009, 18:05
|
|
Участник форума
Регистрация: 03.07.2009
Сообщений: 151
Провел на форуме:
638378
Репутация:
41
|
|
Сообщение от =Zeus=
Извини, но твой вариант очень медленный и неоправданный. Хотя выбирать автору вопроса.
Знаю, я об этом и писал. Громоздкий очень, а точно медленный?
P.S насчет цифр - этот момент можно оформить как первую чать.
|
|
|
|
12.11.2009, 23:31
|
|
Познающий
Регистрация: 05.11.2008
Сообщений: 79
Провел на форуме:
185461
Репутация:
12
|
|
Всем привет.
Помоги плз с компонентом
В инсте задали улучшить RadioGroup. Добавил пару свойств. при подключении модуля к проге все работало на ура. как только установил компонент начались проблемы.
Вот первая из них:
Мне необходимо каждый раз при изменении Caption записывать его в переменную удалять старый Caption и на канвасе писать новый. проблема в следующем: как перехватить его при изменении к примеру в инспекторе обьектов.
я делал так: обьявлял в паблишед новое свойство Caption и просто считывал его в переменную при изменении. но при таком подходе стандартный Caption не изменяется, т.е. сразу после добавления компонента на форму у Caption нету текста, а у объекта есть. вообщем может че не так обьяснил, ну помогите перехватить Caption при изменении)
|
|
|
|
13.11.2009, 10:26
|
|
Banned
Регистрация: 25.11.2007
Сообщений: 62
Провел на форуме:
1702086
Репутация:
89
|
|
=Zeus=, можно регулярками. На 100 тыс. записей - 1-2 сек. на обработку.
|
|
|
|
13.11.2009, 13:34
|
|
Участник форума
Регистрация: 20.02.2009
Сообщений: 183
Провел на форуме:
719582
Репутация:
50
|
|
Например есть строка lololololo`lololo`lolololo`lolololo`lololo
Как сделать так что бы после третьего символа ` все удалялось?
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
