Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26151
Рейтинг: 2127
#331: 2011-04-20 19:39:56 ЛС | профиль | цитата
MBTY писал(а):
Тоесть чтобы сам этот крестик был, а не нажимался чтобы

И в чем проблема

code_23436.txt
карма: 22

0
файлы: 1code_23436.txt [208B] [213]
Ответов: 274
Рейтинг: 47
#332: 2011-04-20 19:43:24 ЛС | профиль | цитата
MBTY, SysMenu
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#333: 2011-04-24 18:28:59 ЛС | профиль | цитата
как возвести в степень в IC?
карма: 0

0
Ответов: 3349
Рейтинг: 233
#334: 2011-04-24 18:37:37 ЛС | профиль | цитата
Подключи в Uses hiMathParse и используй из него процедуру Power
------------ Дoбавленo в 18.37:
#pas
procedure Power(var x, Exponent: real);
карма: 1

0
Ответов: 1321
Рейтинг: 37
#335: 2011-04-24 18:40:33 ЛС | профиль | цитата
178.89.143.47 - это я

Ivann ,а других способов нет?

карма: 0

0
Ответов: 3349
Рейтинг: 233
#336: 2011-04-24 18:42:01 ЛС | профиль | цитата
Ну можешь скопировать процедуру, других возможностей нет.
карма: 1

0
Ответов: 8926
Рейтинг: 823
#337: 2011-04-24 18:47:40 ЛС | профиль | цитата
178.89.143.47, X^Y -- Res:= exp(Y*Ln(X));
Обязательно надо проверять X>0, Y=0.
карма: 19

0
Ответов: 3349
Рейтинг: 233
#338: 2011-04-24 18:50:29 ЛС | профиль | цитата
code_23499.txt
------------ Дoбавленo в 18.50:
[b]Леонид[/b],
#pas
procedure Power(var x, Exponent: real);
var y:integer;
begin
y := Round(Exponent);
if Exponent=y then x := IntPower(x, y)
else if (x=0)and(Exponent>0) then x := 0
else x := Exp(Exponent*Ln(x)); \ Тут все это есть
end;
карма: 1

0
файлы: 1code_23499.txt [958B] [208]
Ответов: 8926
Рейтинг: 823
#339: 2011-04-24 18:55:46 ЛС | профиль | цитата
Ivann, во, блин, а я, старомодный, всё в голове держу
карма: 19

0
Ответов: 16884
Рейтинг: 1239
#340: 2011-04-24 19:31:26 ЛС | профиль | цитата
Леонид, и я, блин
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1321
Рейтинг: 37
#341: 2011-04-24 21:42:30 ЛС | профиль | цитата
как получить миллисекунды в IC
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#342: 2011-04-24 21:48:40 ЛС | профиль | цитата
Roma писал(а):
как получить миллисекунды в IC
Roma, научись задавать вопросы.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1321
Рейтинг: 37
#343: 2011-04-24 21:50:58 ЛС | профиль | цитата
Блин, извиняюсь,просто я о чемто задумаюсь и забываю истолковать свою мысль
как получить миллисикунды системного времени в IC
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#344: 2011-04-24 22:22:30 ЛС | профиль | цитата
Функция timeGetTime извлекает системное время в миллисекундах

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 952
Рейтинг: 4
#345: 2011-04-27 16:54:56 ЛС | профиль | цитата
С помощью компонентов для заполнения по шаблону Word-овских документов сделал автозаполнение.
Но программа расположена на моём компе, в расшареной папке. Когда кто то нажал кнопку Заполнить и соответственно открылся и пошёл заполнятся шаблон то попытка в это же время сделать то же самое вторым юзером приводит к краху. Шаблон то уже отурыт и 2 юзер просто не может открыть его. Т.е. пока первый не закроет, второй не может работать с шаблоном.
Как подправить?
Пока писал пришла идея проверять директорию на наличие темповских файлов Ворда которые он создает рядом с документом при открытии ... Попробую.
------------ Дoбавленo в 16.54:
Что-то фигня какая-то ...... Каким компонентом реализовать поиск файла в папке и при его наличии выдать Месагу ? Папка из которого стартовала сама прога. Файл ищется типа ~$shablon.doc
карма: 0

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)