Вопросы по Delphi - [29] :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi

Модерирует : ShIvADeSt
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

vserd Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Shadi Попробуй к финансистам обратиться. Наверняка в каком-то учебнике/справочнике они описаны.
	Всего записей: 2065 \| Зарегистр. 08-05-2002 \| Отправлено: 12:59 30-06-2005

Shadi

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

vserd

Ответ типа как у чукчи: "Однака нужно за трактор в деревню идти"!!!
Финансист сидит рядом и есть алгоритмы, но это так муторно. Может уже есть велосипед, так зачем же его изобретать..

Всего записей: 110 | Зарегистр. 07-05-2003 | Отправлено: 15:11 30-06-2005

ShIvADeSt

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Shadi

Цитата:

ВОПРОС: МОЖЕТ у кого - нибудь есть! Или подскажите где найти аналоги под ДЕЛЬФИ этих функций

Если я правильно понял, это макросы. Вызов макроса из Дельфи

Цитата:

var XD: variant;
...
XD.Run("Имя_Макроса");

Подробнее как обратится к ворду через OLE смотри в топиках, уже было. Обратись в Excel VBA там вроде писали подробный код работы с екселем из дельфи.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:57 01-07-2005

Shadi

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

ShIvADeSt

Первым делом пробовал именно этот вариант!

код..
procedure TForm1.bntDays360Click(Sender: TObject);
var
ExcelApp : Variant;
str : string;
tt1 : Double;
begin
try
// Создание Excel
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := True;
ExcelApp.Workbooks.Add;
//это работает
ExcelApp.activesheet.cells[2,2].value := '=DAYS360("'+ edt1.Text + '","'+ edt2.Text +'",4)';
// ЭТО НЕ РАБОТАЕТ
ExcelApp.activesheet.cells[1,1].value :='=ДАТАКУПОНДО("'+ edt1.Text + '","'+ edt2.Text +'",2,4)';

str := FloatToStr(ExcelApp.activesheet.cells[2,2].value);
tt1 := ExcelApp.activesheet.cells[1,1].value;
memo.Lines.Add(str);
memo.Lines.Add(FloatToStr(tt1));

finally // wrap up
ExcelApp.displayalerts := False;
ExcelApp.Quit;
ExcelApp := UnAssigned;
end; // try/finally

ПОЧЕМУ ТО ЧЕРЕЗ "ОЛЮ" Дельфи не видит пакет Функций анализа

Всего записей: 110 | Зарегистр. 07-05-2003 | Отправлено: 07:43 01-07-2005 | Исправлено: Shadi, 07:59 01-07-2005

ShIvADeSt

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:

ExcelApp.activesheet.cells[2,2].value := '=DAYS360("'+ edt1.Text + '","'+ edt2.Text +'",4)';

а почему value? Вроде должно быть formula если я правильно помню эти вещи.

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 08:16 01-07-2005

Shadi

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

ShIvADeSt

Без разницы! Что value, что formula!
Excel открытый через OLE отрубает надстройку - пакет анализа, где храняться эти функции.
Вот после этого верь Билу....

Всего записей: 110 | Зарегистр. 07-05-2003 | Отправлено: 12:25 01-07-2005

h0mer

Full Member

Привет всем !
Подскажите как это
DrawTextEx(Label5.Canvas.Handle ,PChar(dir),length(dir),r,DT_PATH_ELLIPSIS,nil);
превратить в текст, а то после сворачивания и разворачмвания проги - Label.Canvas очищается.
Возможны ещё какие нибудь варианты?

Всего записей: 495 | Зарегистр. 11-10-2004 | Отправлено: 13:31 01-07-2005

OdesitVadim Advanced Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору h0mer ты его в FormPaint засунь - будет нормально
	Всего записей: 1568 \| Зарегистр. 19-09-2003 \| Отправлено: 15:05 01-07-2005

Skipper Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Подскажите пожалуйста, как правильно отправить комманду CBN_SELCHANGE
	Всего записей: 961 \| Зарегистр. 23-06-2002 \| Отправлено: 07:52 03-07-2005

Larry Laffer

Advanced Member

Ни у кого нету исходников карточной игры "Солитёр"?

----------
Save The Planet -- Kill YourSelf!
http://larry.nxt.ru

Всего записей: 604 | Зарегистр. 09-10-2004 | Отправлено: 10:00 03-07-2005

EZH

Advanced Member

Larry Laffer
Думаю алгоритм можно и самому своять по правилам, а вот изображения карт можно запользовать из той же библиотеки cards.dll, что использует sol.exe
Пример на Delphi: _http://it-6.mgapi.edu/predmets/other.php?id=22 (смотри cards.zip)

Всего записей: 1738 | Зарегистр. 02-09-2004 | Отправлено: 20:46 03-07-2005

h0mer Full Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору OdesitVadim это дело не прокатывает
	Всего записей: 495 \| Зарегистр. 11-10-2004 \| Отправлено: 11:54 04-07-2005

OdesitVadim Advanced Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору h0mer Должно работать А в общем почитай здесь, думаю это то, что тебе надо www.delphiworld.narod.ru/base/del_folder_name.html
	Всего записей: 1568 \| Зарегистр. 19-09-2003 \| Отправлено: 12:17 04-07-2005

h0mer

Full Member

OdesitVadim
Уже разобрался, спасибо. Гугле железная штука.

Мож кому пригодиться.

Function FitOnCanvas(MyCanvas : TCanvas; MyString : String) : String;
Var MyRect : TRect;
Begin
MyRect := MyCanvas.ClipRect;
DrawTextEx(MyCanvas.Handle, PChar(MyString), Length(MyString), MyRect,
DT_MODIFYSTRING or DT_NOPREFIX or DT_PATH_ELLIPSIS, NIL);
// You may try DT_END_ELLIPSIS too.
Result := MyString;
End;

Всего записей: 495 | Зарегистр. 11-10-2004 | Отправлено: 13:42 04-07-2005

Larry Laffer

Advanced Member

Подскажите, пожалуйста:

Есть форма, на ней Spin, в котором указано число от 0 до 255. Как мне преобразовать это число в 16 формат и присвоить его переменной byte?

Заранее благодарен...

----------
Save The Planet -- Kill YourSelf!
http://larry.nxt.ru

Всего записей: 604 | Зарегистр. 09-10-2004 | Отправлено: 15:52 05-07-2005

evle

1 + int rand(100);

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Larry Laffer
Если тебе нужно присаваивать число переменной byte, то зачем в 16-ричную систему его конвертировать?

Писать что-то вроде

Код:

var
x: byte;
.....
x=Spinedit1.Value;

Если нужно показать число в 16-ричной системе, то есть функция BinToHex

----------
For every complex problem, there is a solution that is simple, neat, and wrong.

Всего записей: 2110 | Зарегистр. 03-02-2005 | Отправлено: 16:07 05-07-2005

Larry Laffer

Advanced Member

evle,

Цитата:

x=Spinedit1.Value;

Это прокатывает, если число от 0 до 99, а если число равно 255???

----------
Save The Planet -- Kill YourSelf!
http://larry.nxt.ru

Всего записей: 604 | Зарегистр. 09-10-2004 | Отправлено: 16:57 05-07-2005

evle

1 + int rand(100);

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Larry Laffer
А что конкретно не работает при 255? Вроде должно.

----------
For every complex problem, there is a solution that is simple, neat, and wrong.

Всего записей: 2110 | Зарегистр. 03-02-2005 | Отправлено: 17:20 05-07-2005

Larry Laffer

Advanced Member

evle, число 255 в 16-чном формате ведь должно быть представлено как FF, а если просто присваивать a: byte = 255, то будет не FF.

----------
Save The Planet -- Kill YourSelf!
http://larry.nxt.ru

Всего записей: 604 | Зарегистр. 09-10-2004 | Отправлено: 17:23 05-07-2005

mr_eoi

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Larry Laffer
Вообще-то в машинной памяти число 255, оно же (hex)FF хранится в виде (bin)11111111 и не зависит от способа его представления (читай написания).

----------
Per Aspera Ad Astra...

Всего записей: 2203 | Зарегистр. 10-08-2003 | Отправлено: 17:27 05-07-2005

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC