» Вопросы по Delphi (до версии 2009) - часть 6

Aleksandr N

Цитата:

Да, подходит. Но имена файлов могут оказаться и в виде слов. Тогда этом метод не подойдет. Как в этом случае?

Если имена файлов будут в виде слов, то сортируй их отдельно, а потом вставь снизу списка остальных файлов.

Aleksandr N
В Jedi Code Library, в модуле JclStrings.pas есть функции CompareNatural*
Они сравнивают строки с учётом того, что в них могут быть цифры.
Может они и подойдут.

Frodo_Torbins
Bonivur
На худой конец буду так делать.
data man
Посмотрю.

P.S. Умные мысли приветствуются.

Aleksandr N
ИМХО сам создаешь себе лишнюю головную боль. Создай два списка - где имена начинаются с цифры и где с не цифрыю Отсортируй каждый отдельно и потом слей в один. Это уменьшит число проверок на начало с цифры и ускорит сортировку. Строки с цифрами я бы сортировал примерно так

Код:
procedure MinMax(var Min, Max:string);
var
i,j, Code:integer;

begin
val(Min,i,Code);
val(Max,j,Code);
if i>j then Swap(Min,Max);
end;

ShIvADeSt
Наверное так и придётся. Спасибо.

Цитата:

Aleksandr N

Цитата:

Каким образом можно привести список к виду:

Создавать файлы
01
02
...
09
10
11
и т.д.

YuriyRR
Оригинально, а главное свежо.

Aleksandr N
AFAIR AnsiCompareStr как раз именно так и сравнивает.
и TStringList использует для сортировки как раз его

Знатоки, подскажите, плиз, как по таймеру задержать отрисовку компонента? Например, если курсор мыши на компоненте -> изменить цвет Caption через 500 ms

EugeneBoss3
Когда курсор окажется над компонентом запустить таймер. В таймере поменять цвет надписи и отключится.

Всем привет. Есть форма на ней две кнопки: первая запускает процедуру формирования, вторая закрывает форму (Close;). При формировании, кнопка закрытия формы не работает (как бы сделать отмену формирования и закрыть форму). Подскажите как сделать (что то слышал про потоки, но не думаю что разберусь).

Man_Without_Face
Можно сделать с помощью флага. Кнопка закрытия устанавливает какой то флаг. Процедура формирования проверяет этот флаг, если установлен прервать выполнение процедуры. Для того что бы нажималась сама кнопка закрытия нужно в цикле процедуры формирования писать Application.ProcessMessages.

Цитата:

Application.ProcessMessages.

Это есть...
А про флаги если можно поподробнее как сделать или где можно прочитать? Спасибо.


Добавлено:
Сделал так: на отмену присваиваю переменной значение, напр. 1. При формировании в цикле проверяю переменную, если =1 тогда exit. Вроде работает, но правильно ли это?

Man_Without_Face
Все правильно, volser вам как раз об этом варианте и говорил. Только проследите, чтобы никакие левые кнопки нажать нельзя было, например кнопку закрытия формы.

Ребят помогите! Веб серверу методом POST нужно послать высылать файл yyy.gz .
Т.е. структура POST запроса должна быть вида:

Код:
-----------------------------15890672924370
Content-Disposition: form-data; name="backup"; filename="yyy.gz"
Content-Type: application/x-tar

<сам файл>

-----------------------------15890672924370--

Подскажите, как в MDI лучше сделать к каждому экземпляру окна свой экземпляр датамодуля (чтобы не бросать компоненты на каждое окно)?

SIgor33
Создать базовый класс дочернего окна и наследовать остальные от него?

Есть форма, на ней компонент PageControl. На первой Page - Image. Надо сделать так, чтобы при нажатии на остальные вкладки этот Image на них присутствовал. Делать копии этого компонента и пихать на каждую вкладку - не вариант. Пробовал делать

Image1.Parent := PageControl1.ActivePage;

работает, но при переходе между вкладками периодически изображение "моргает". Есть ли способ избавиться от этого артефакта?

Bonivur
Установите каждому табшиту DoubleBuffered=True (оно public).
Цитата:

Делать копии этого компонента и пихать на каждую вкладку - не вариант.

Это из за расхода ресурсов? Так ведь почти все классы, реализующие поддержку графических форматов, используют наследников TSharedImage. Другое дело, что мигать все равно будет.

Frodo_Torbins

Цитата:

Установите каждому табшиту DoubleBuffered=True (оно public).

Установил. Если не применять темы, то помогает. С темами - нет, только чуть уменьшает мигание. Причем как-то странно все это - 5 раз понажимаешь вкладки - мерцания нет, а потом - РАЗ! и моргнет. Почему тогда каждый раз не мигает? Где собака порылась?

Frodo_Torbins

Цитата:

Создать базовый класс дочернего окна и наследовать остальные от него?

Примером не богат, чтобы посмотреть как грамотно сделать

Bonivur
Цитата:

С темами - нет, только чуть уменьшает мигание.

Тогда в дополнение к DoubleBuffered еще уберите стиль csParentBackground у каждого табшита:
Код: TabSheet1.ControlStyle := TabSheet1.ControlStyle - [csParentBackground];

Frodo_Torbins

Цитата:

Тогда в дополнение к DoubleBuffered еще уберите стиль csParentBackground у каждого табшита:
Код:TabSheet1.ControlStyle := TabSheet1.ControlStyle - [csParentBackground];

Я так понял, что это надо в Create формы вставить?

Код:
for i := 0 to PageControl.PageCount - 1 do
PageControl.Pages[i].ControlStyle := PageControl.Pages[i].ControlStyle - [csParentBackground];

Доброго времени суток. Есть переменная с суммой (например 2552) и переменная с минимальной купюрой (например 10). Нужно в Delphi или в Sql запросе округлить сумму до минимальной купюры (итог 2550).

Man_Without_Face

Цитата:

Доброго времени суток. Есть переменная с суммой (например 2552) и переменная с минимальной купюрой (например 10). Нужно в Delphi или в Sql запросе округлить сумму до минимальной купюры (итог 2550).

Div тебе в помощь, что то типа
y = (Sum div MinCupura) * MinCupura;

ShIvADeSt
ок, спасибо. Но а если сумма будет 12,126; мин. купюра 0.01. Тогда получаем 12,12, а не нужные 12,13? Может какие-нибудь функции есть?


Добавлено:
округление должно быть или в большую или в меньшую сторону

Man_Without_Face
Trunc((sum/mincup)) * mincup
или Trunc((sum/mincup)+0.5) * mincup // для ваших примеров
както так (см. так же ф-ция round, math.roundto)
ну и в качестве дополнения
_http://www.delphikingdom.com/asp/viewitem.asp?catalogID=1217
_http://www.sql.ru/forum/actualthread.aspx?tid=412838

greenpc Спасибо большое.

Цитата:

Trunc((sum/mincup)+0.5) * mincup

Так правильно.
Вроде все нормально работает, но статейки тоже почитаю.

Bonivur
На счет OnCreate не уверен, на всякий случай проверьте в рантайме вдруг сбрасывается. Вообще демку бы, так как у меня все работает без мелькания.

Всем доброго времени суток. У меня такой нубский вопрос, вот сколько программирую в свободное время, не задумывался как-то. Допустим есть примерный код:


Код:
if ((hToolTip <> 0) and IsWindowVisible(hToolTip)) then