ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
29.07.2008, 20:47
|
|
Познающий
Регистрация: 22.02.2008
Сообщений: 62
Провел на форуме:
211076
Репутация:
52
|
|
Добавляешь на форму таймер, в его свойствах
Код:
Enabled:=false,
Interval:=5000,
в обработчике события onTimer пишешь весь код которые тебе нужно запустить, а в OnClick пишешь
Код:
timer1.Enabled:=true;
вот и все |
|
|
29.07.2008, 23:12
|
|
Познающий
Регистрация: 20.05.2008
Сообщений: 81
Провел на форуме:
224517
Репутация:
32
|
|
Имеем часть кода в part1.pas , вторую часть в part2.pas .
Чтобы part2.pas ("с подгрузкой" part1.pas) компилировался в exe, необходимо сделать так :
пишем в коде файла part2.pas после uses crt, подгрузку файла part1.pas :
Но почему, в FreePascaL такой метод срабатывает, а в Pascal 7.0 не срабатывает?
И как сделать чтобы в Pascal 7.0 это работало, может библиотеки какой-нибудь нет ?
Последний раз редактировалось hoty; 29.07.2008 в 23:22..
|
|
|
|
29.07.2008, 23:17
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
Сообщение от hoty
в Pascal код разделен на два файла .pas - первая часть кода в первом файле, вторая во втором.
Как сделать так, чтобы оба файла (не обьединяя их в один) компилировались в одну программу ?
точнее напиши что именно надо?
|
|
|
|
30.07.2008, 00:31
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от hoty
Имеем часть кода в part1.pas , вторую часть в part2.pas .
Чтобы part2.pas ("с подгрузкой" part1.pas) компилировался в exe, необходимо сделать так :
пишем в коде файла part2.pas после uses crt, подгрузку файла part1.pas :
Но почему, в FreePascaL такой метод срабатывает, а в Pascal 7.0 не срабатывает?
И как сделать чтобы в Pascal 7.0 это работало, может библиотеки какой-нибудь нет ?
может include file2.pas? 
|
|
|
|
30.07.2008, 02:48
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Подскажите, вот в memo1 у меня текст:
<lol>text1</lol>
<lol>text2</lol>
<lol>text3</lol>
<lol>text4</lol>
Как отфильтровать в memo2, весь текст построчно который после <lol> и до </lol> ???
Чтобы в memo2 было:
text1
text2
text3
text4
|
|
|
|
30.07.2008, 02:54
|
|
Members of Antichat - Level 5
Регистрация: 01.04.2007
Сообщений: 1,268
Провел на форуме:
10046345
Репутация:
4589
|
|
Сообщение от Nightmarе
Подскажите, вот в memo1 у меня текст:
<lol>text1</lol>
<lol>text2</lol>
<lol>text3</lol>
<lol>text4</lol>
Как отфильтровать в memo2, весь текст построчно который после <lol> и до </lol> ???
Чтобы в memo2 было:
text1
text2
text3
text4
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=46489
|
|
|
|
30.07.2008, 04:27
|
|
Познающий
Регистрация: 24.07.2008
Сообщений: 47
Провел на форуме:
108397
Репутация:
31
|
|
Как сделать что бы в Едит при вводе знаков, они были кружоками, как на месте пароля в маил@агенте?
|
|
|
|
30.07.2008, 10:33
|
|
Новичок
Регистрация: 26.06.2008
Сообщений: 15
Провел на форуме:
27936
Репутация:
13
|
|
Сообщение от _GlaD1aT(OR)_
Как сделать что бы в Едит при вводе знаков, они были кружоками, как на месте пароля в маил@агенте?
Свойство есть у едита - PasswordChar называется. Вот туда нужный знак и вписывается (звездочки те же).
|
|
|
|
30.07.2008, 11:00
|
|
Новичок
Регистрация: 26.06.2008
Сообщений: 15
Провел на форуме:
27936
Репутация:
13
|
|
Nightmarе,
Код:
function StripTags(value:string):string;
var
i:integer;
s:string;
begin
i:=1;
s:='';
while i<=length(value) do begin
if value[i]='<' then repeat inc(i) until (value[i]='>') else s:=s+value[i];
inc(i);
end;
result:=s;
end;
|
|
|
|
31.07.2008, 11:33
|
|
Познающий
Регистрация: 30.04.2007
Сообщений: 77
Провел на форуме:
393625
Репутация:
50
|
|
2 BlackSun
Код:
for (i:=0 to i<Memo1.count)
begin
MemoStart.Lines.Strings[i]:=stringReplace(MemoStart.Lines.Strings[i],'<lol>','',[rfReplaceAll]);
MemoStart.Lines.Strings[i]:=stringReplace(MemoStart.Lines.Strings[i],'</lol>','',[rfReplaceAll]);
end;
ps в коде возможны мелкие ошибки в реализации цикла давно нечего на делфи неписал... |
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
