ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
03.05.2010, 13:10
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
Провел на форуме:
612028
Репутация:
28
|
|
Сообщение от iGlass
Доброго времни суток =)
Есть задача:
Есть путь, например "C:\SomeApp\SomeFolder\target.txt"
Каким образом можно узнать SomeFolder имя может быть любое.
Заранее спасибо! =)
ExtractFileDir(<path>) - если надо узнать "C:\SomeApp\SomeFolder"
в ином случае - copy, pos
Последний раз редактировалось [stranger]; 03.05.2010 в 13:12..
|
|
|
03.05.2010, 14:08
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Сообщение от iGlass
Доброго времни суток =)
Есть задача:
Есть путь, например "C:\SomeApp\SomeFolder\target.txt"
Каким образом можно узнать SomeFolder имя может быть любое.
Заранее спасибо! =)
если длина пути всегда одинаковая то регексп
я имею ввиду количество слешей
|
|
|
|
03.05.2010, 14:36
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Да количество слешей одинаково, но название может быть разной длины.. Вот в чём косяк.. Даже если юзать регулярные выражения, то нужно будет отнимать и прибавлять разную длину.. которую как ни крути, а узнать я не могу т.к длина названия папки может быть разная...
Или я туплю? Вроде прикинул, что можно от слеша до слеша. так?
Последний раз редактировалось iGlass; 03.05.2010 в 14:39..
|
|
|
|
03.05.2010, 14:45
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
хотел сделать такое:
при нажатии на кнопку появляется картинка(анимация), идёт задержка sleep и картинка снова пропадает, но столкнулся с такой проблемой что анимация не проигрывается во время задержки. подскажите как это исправить.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Visible:=true;
Application.ProcessMessages;
sleep(1000);
Image1.Visible:=false;
end;
|
|
|
|
03.05.2010, 14:48
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Вроде есть такой компонент TAnimate Входит в стандартную поставку.
Или надо чтобы сам компонент плавно исчез?
|
|
|
|
03.05.2010, 14:56
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
даже если использовать TAnimate, всё равно картинка остаётся статической((
|
|
|
|
03.05.2010, 16:04
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
Провел на форуме:
612028
Репутация:
28
|
|
Сообщение от heretic1990
даже если использовать TAnimate, всё равно картинка остаётся статической((
а ты попробуй задержку делать таким циклом:
Код:
var k: integer;
...
k := 0;
while (k <> 50) do
begin
Application.ProcessMessages;
sleep(100);
inc(k);
end;
...
|
|
|
|
03.05.2010, 15:11
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Картинку предварительно нужно сделать анимированой...
Сохранить анимацию в формате *.avi
А по нажатию кнопок включать или выключать анимацию в TAnimate
В Delphi ты из статической картинки динамическую не сделаешь...
|
|
|
|
03.05.2010, 15:33
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
это всё понятно, я сначала пробовал сделать без Application.ProcessMessages;, и соответственно ничего не выводилось, потом я попробовал обставит саму анимацию Application.ProcessMessages;, ну чтобы дать завершиться процессу но и это не помогло. может как нибудь можно вывести анимацию на пару сек и чтобы она потом пропала, только чтобы это всё было одним кликом. можно попробовать через связку таймеров, но там много гемороя((
|
|
|
|
03.05.2010, 19:08
|
|
Познающий
Регистрация: 07.05.2009
Сообщений: 70
Провел на форуме:
420226
Репутация:
38
|
|
Народ, нужно написать программу. Легкая, школьный курс
Помогите пожалуйста 
Создайте массив, содержащих информацию о машинах (марка, год выпуска, цвет, номер). Выведите на экран информацию о машинах черного цвета. Выведите на экран марки машин, номера которые начинаются на букву М. Упорядочьте записи в массиве по возрастанию года выпуска
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [stranger]](/avatars/avatar113122.jpg?2119737){kind=avatar}
![Отправить сообщение для [stranger] с помощью ICQ](fusion/misc/im_icq.gif)
![Аватар для [stranger]](/avatars/avatar113122.jpg?2120094){kind=avatar}
Похожие темы
Комбинированный вид