ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
09.07.2009, 14:20
|
|
Участник форума
Регистрация: 25.10.2008
Сообщений: 215
Провел на форуме:
2483773
Репутация:
78
|
|
Вот хорошая версия, много компонентов с ней идет http://torrents.ru/forum/viewtopic.php?t=1974361
|
|
|
09.07.2009, 22:28
|
|
Новичок
Регистрация: 19.01.2009
Сообщений: 8
Провел на форуме:
243951
Репутация:
1
|
|
подскажите.
Код:
procedure TForm1.button1Click(Sender: TObject);
var
Index: Integer;
Temp: TStringList;
begin
Temp:= TStringList.Create();
for Index:= 0 to Bana.Count - 1 do
begin
if (Bana[Index] <> '') and (Temp.IndexOf(Bana[Index]) = -1) then
Temp.Add(Bana[Index])
end;
try
begin
Temp.SaveToFile...
и при нажатии на кнопку выходит ошибка:
Project raised exception class EAccessViolation with message...
и становиться на строку for Index:= 0 to Bana.Count - 1 do
в чем проблема? |
|
|
|
10.07.2009, 11:00
|
|
Участник форума
Регистрация: 16.07.2008
Сообщений: 159
Провел на форуме:
1063538
Репутация:
240
|
|
Когда делаю такой запрос
Код:
Memo1.Text:= idHTTP1.Get('http://mail.ru');
норм сорц грузит, а если
Код:
Memo1.Text:= idHTTP1.Get('http://my.mail.ru/mail/wasja.lllw/');
Вылезает ошибка 302, что сделать чтобы сорц тоже грузило? |
|
|
|
10.07.2009, 11:03
|
|
Участник форума
Регистрация: 16.07.2008
Сообщений: 159
Провел на форуме:
1063538
Репутация:
240
|
|
Все разобрался)
поставил
idhttp1.HandleRedirects:=true;
|
|
|
|
10.07.2009, 14:17
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
Провел на форуме:
183980
Репутация:
50
|
|
2boomba мож Bana не инициализирован? Оо
добавь if Assigned(Bana) then перед циклом
Код:
if Assigned(Bana) then
for Index:= 0 to Bana.Count - 1 do
и посмотри что получиться.
|
|
|
|
10.07.2009, 17:45
|
|
Новичок
Регистрация: 19.01.2009
Сообщений: 8
Провел на форуме:
243951
Репутация:
1
|
|
спасибо. обошлось без ошибки.
|
|
|
|
11.07.2009, 03:39
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
Провел на форуме:
6128108
Репутация:
445
|
|
Есть стринг такого вида
str:='c:\catalog\number1\program.exe';
Как вырезать слово program.exe и вставить в другую переменную?(делфи)
|
|
|
|
11.07.2009, 07:01
|
|
Участник форума
Регистрация: 02.07.2007
Сообщений: 189
Провел на форуме:
1843300
Репутация:
212
|
|
Сообщение от diznt
Есть стринг такого вида
str:='c:\catalog\number1\program.exe';
Как вырезать слово program.exe и вставить в другую переменную?(делфи)
str:=Copy(str,20,Length(str)-20);
и в str у тебя будет program.exe
что то типо такого
Последний раз редактировалось Freedom; 11.07.2009 в 07:03..
|
|
|
|
11.07.2009, 07:54
|
|
Постоянный
Регистрация: 31.01.2008
Сообщений: 643
Провел на форуме:
6128108
Репутация:
445
|
|
Сообщение от Freedom
str:=Copy(str,20,Length(str)-20);
и в str у тебя будет program.exe
что то типо такого
Чуть дополню вопрос для непонятливых
Путь до программы может быть разным...
|
|
|
|
11.07.2009, 13:35
|
|
Участник форума
Регистрация: 02.07.2007
Сообщений: 189
Провел на форуме:
1843300
Репутация:
212
|
|
Сообщение от diznt
Чуть дополню вопрос для непонятливых
Путь до программы может быть разным...
так этот разный путь забей в переменную допустим path и склеивай путь и имя файла
str:=path+str
и всё
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид