/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 475
от 17.05.2006, 03:05

Вопрос № 42.688

Можно ли "заставить" MS Word сохранять документы в формате RTF? Приложение: MSWord:=CreateOleObject('Word.Application'); ... MSWord.ActiveDocument.SaveAs(FileName:='name.doc', FileFormat:=0, LockComments:=False, Password:='', AddToRecentFiles:=True, WritePassword:='', ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False);

Отправлен: 11.05.2006, 09:25 Вопрос задал: Алексей Владимирович (статус: 7-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Coupler Здравствуйте, Алексей Владимирович! Конечно можно. Для этого нужно сменить расширение на rtf и формат (FileFormat=6). Приложение: MSWord:=GetActiveOleObject('Word.Application'); MSWord.activeDocument.SaveAs(FileName:='c: ame1.rtf', FileFormat:=6, LockComments:=False, Password:='', AddToRecentFiles:=True, WritePassword:='', ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False);

Ответ отправил: Coupler (статус: 10-ый класс) Ответ отправлен: 11.05.2006, 10:02 Оценка за ответ: 5

Отвечает: Ерёмин Андрей Здравствуйте, Алексей Владимирович! Поместите на форму TWordApplication со вкладки Servers. А в приложении процедура, конвертирующая doc в rtf. Если какие-то переменные компилятор начнёт ругать как неизвестные - стукните в мини-форум, сообщу, в каких модулях эти переменные находятся. В данный момент не могу этого сказать, т.к. процедура взята из большой программы, где подключено несколько десятков модулей. Приложение: procedure TForm1.DocToRtf(input: string; output: string); var sFileName: OleVariant; t, f: OleVariant; Format: OleVariant; SaveChanges: OleVariant; begin WordApplication.Connect; WordApplication.Visible := false; sfileName := input; t := True; f := False; Doc.ConnectTo(WordApplication.Documents.Open(sFileName, EmptyParam, t, f, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, f)); sFileName := ChangefileExt(output, '.rtf'); Format := wdFormatRTF; Doc.SaveAs(sFileName, Format); SaveChanges := wdDoNotSaveChanges; WordApplication.Quit(SaveChanges); WordApplication.Disconnect; end; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 11.05.2006, 10:11 Оценка за ответ: 5

Вопрос № 42.704

Здравствуйте, уважаемые эксперты! Подскажите, пожалуйста, как округлить число до нужного количества знаков после запятой? Заранее спасибо!

Отправлен: 11.05.2006, 12:11 Вопрос задал: Андрющенко Вячеслав Васильевич (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Рубан Николай Николаевич Здравствуйте, Андрющенко Вячеслав Васильевич! Если вам это нужно для вывода числа с нужной точностью то используйте функцию FloatToStrF(zz,ffFixed,7,2); выводит и преобразовывает число с точностью до 2-х знаков. Так как результат строковый то его можно преобразовать обратно в вещ.число. --------- Мыслю - значит существую (Декарт)

Ответ отправил: Рубан Николай Николаевич (статус: 5-ый класс) Ответ отправлен: 11.05.2006, 12:17

Отвечает: Bochvarov NikB Здравствуйте, Андрющенко Вячеслав Васильевич! x := 0.01*round(100*x); x := 0.001*round(1000*x); x :=0.0001*round(10000*x);

Ответ отправил: Bochvarov NikB (статус: 8-ой класс) Ответ отправлен: 11.05.2006, 15:26

Отвечает: Lexus Здравствуйте, Андрющенко Вячеслав Васильевич! Цитата из Сборника Советов По Delphi Валентина Озерова "Функция представления чисел с плавающей точкой и нужным числом разрядов. Пример: Conv(2.005,2) возвращает 2.01; Conv(2.5,0) возвращает 3" Приложение: function Conv(cs: double; numb: integer): double; var db, db1, db2: double; i: int64; ii, ink, i1: integer; st: string; begin db:=cs-int(cs); ink:=1; for ii:=1 to numb do ink:=ink*10; db1:=db*ink; db2:=cs*ink*100; i:=trunc(int(db2)/100); i1:=trunc(db2-i*100); if i1>49 then inc(i); result:=i/ink; end;

Ответ отправил: Lexus (статус: 3-ий класс) Ответ отправлен: 11.05.2006, 20:43

Вопрос № 42.717

Здравствуйте, эксперты! У меня 3 вопроса: 1) Как можно запускать локальное подключение? 2) Чем лучше передавать данные через Интернет? 3) Как при помощи длинной арфиметики реализовать возведение в степень и извлечение корня?

Отправлен: 11.05.2006, 13:41 Вопрос задал: Томша Павел (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: $erBep Здравствуйте, Томша Павел! Отвечу на 2 вопроса. 2) Я думаю лучше через ftp. 3)Возведение в степень символ '2^3=8', а извлечение корня 'sqrt' или 'sqr'... Хочешь узнать как пользоваться мыль. Verushkin@yandex.ru --------- Купи самоучитель - хуже не будет.

Ответ отправил: $erBep (статус: 2-ой класс) Ответ отправлен: 11.05.2006, 17:52 Оценка за ответ: 2 Комментарий оценки: Ну, насчёт третьего - я это знал, мне нужен был метод реализации этого алгоритма длинной арифметикой

Отвечает: Lexus Здравствуйте, Томша Павел! Попытаюсь ответить на 3 вопрос (хотя и не знаю что такое длинная арифметика:)) Цитата из Сборника советов по DELPHI Валентина Озерова: "Это может звучать тривиально, но как мне возвести число в степень? Например, 2^12 = 4095. На самом деле вопрос далеко не тривиальный. Проблема в том, что сам алгоритм функции далеко не прост. Функцией Power(X, N) (т.е. X^N) должны четко отслеживаться несколько возможных ситуаций: X любое число, N = 0 X = 1, N любое число X = 0 и N > 0 X = 0 и N < 0 X > 0 X < 0 и N нечетное целое X < 0 и N целое X < 0 и N нецелое Посмотрите на следующую, абсолютно правильно работающую функцию (тем не менее она может быть и не самой эффективной!): PS: Помог чем смог. Если что не так то хоть 2-ку не ставтьте :)) Приложение: interface type EPowerException = class(Exception) end; implementation function Power(X, N : real) : extended; var t : longint; r : real; isInteger : boolean; begin if N = 0 then begin result := 1.0; exit; end; if X = 1.0 then begin result := 1.0; exit; end; if X = 0.0 then begin if N > 0.0 then begin result := 0.0; exit; end else raise EPowerException.Create('Результат - бесконечность'); end; if (X > 0) then try result := exp(N * ln(X)); exit; except raise EPowerException.Create('Результат - переполнение или потеря значимости'); end; { X - отрицательный, но мы все еще можем вычислить результат, если n целое. } { пытаемся получить целую часть n с использованием типа longint, вычисление } { четности n не займет много времени } try t := trunc(n); if (n - t) = 0 then isInteger := true else isInteger := False; except { Лишний бит может вызвать переполнение или потерю значимости } r := int(n); if (n - r) = 0 then begin isInteger := true; if frac(r/2) = 0.5 then t := 1 else t := 2; end else isInteger := False; end; if isInteger then begin {n целое} if odd(t) then {n нечетное} try result := -exp(N * ln(-X)); exit; except raise EPowerException.Create('Результат - переполнение или потеря значимости'); end else {n четное} try result := exp(N * ln(-X)); exit; except raise EPowerException.Create('Результат - переполнение или потеря значимости'); end; end else raise EPowerException.Create('Результат невычисляем'); end;

Ответ отправил: Lexus (статус: 3-ий класс) Ответ отправлен: 11.05.2006, 20:47 Оценка за ответ: 3 Комментарий оценки: Ну, опять то же самое...

Отвечает: nimoid Здравствуйте, Томша Павел! 3) Если я правильно понял что имеется ввиду под "длинной арифметикой" и если мне с кем-то не изменяет память, то возможно подойдет такой вариант: Возведение в степень можно осуществить так: exp(4*ln(2)); , где 4 - степень, 2 - число, т.е. 2^4. Извлечение корня можно представить как число в степени 1/степень_корня , т.е. тогда будет: exp(0.5*ln(4)); , это 4 под квадратным корнем. --------- Пишем баги на любые патчи :-]

Ответ отправил: nimoid (статус: 8-ой класс) Ответ отправлен: 12.05.2006, 10:25 Оценка за ответ: 2 Комментарий оценки: Нет, тогда как ln() представить длинной арфиметикой

Вопрос № 42.752

Здравствуйте! Подскажите, пожалуйста, хорошию программу для сжатия exe и dll. Спасибо всем, кто поможет.

Отправлен: 11.05.2006, 18:32 Вопрос задал: Колян (статус: Посетитель) Всего ответов: 6 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Б. Здравствуйте, Колян! Лучшие программы, которые я знаю: Software Compress, AsPack, UPX. Удачи! --------- Недавно прошёл тест на IQ. Результат отрицательный.

Ответ отправил: Николай Б. (статус: 6-ой класс) Ответ отправлен: 11.05.2006, 18:40 Оценка за ответ: 5

Отвечает: Решетник Д Здравствуйте, Колян! Еще есть рпога PE Compact. по характеристикам не знаю (вроде не плохая), но ею ИМХО удобно пользваться - встраивается в ОС. --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: 5-ый класс) Ответ отправлен: 11.05.2006, 18:43 Оценка за ответ: 5

Отвечает: Ерёмин Андрей Здравствуйте, Колян! Вот три хорошие программы: Software Compress, UPX и ASPack. Только не пытайтесь применить все три одновременно - от этого приложение может стать неработоспособным. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 11.05.2006, 19:56

Отвечает: Lexus Здравствуйте, Колян! Пожалуй посоветую upx 2.0. Жмет неплохо (например exe-ник ужал с 1017 КБ до 430 КБ) Единственный минус - работает в режиме командной строки (хотя для кого-то это даже плюс) домашний сайт - http://upx.sf.net

Ответ отправил: Lexus (статус: 3-ий класс) Ответ отправлен: 11.05.2006, 20:34 Оценка за ответ: 5

Отвечает: Coupler Здравствуйте, Колян! ИМХО, самый лучший NsPack. Бери его с www.wasm.ru. Насколько я знаю, распаковщиков к нему пока нет.

Ответ отправил: Coupler (статус: 10-ый класс) Ответ отправлен: 12.05.2006, 05:57 Оценка за ответ: 5

Отвечает: Shcherbakov Anton Здравствуйте, Колян! пользуюсь вот этой.. мне нравится как сжимает :) http://krow.land.ru/PETITE22.EXE

Ответ отправил: Shcherbakov Anton (статус: 1-ый класс) Ответ отправлен: 12.05.2006, 09:11 Оценка за ответ: 4

Вопрос № 42.753

Здравствуйте! Недавно видел числа Фиббоначи на C++. Но не могу перевести на Delphi. Помогите, pls. Спасибо всем, кто поможет.

Отправлен: 11.05.2006, 18:34 Вопрос задал: Колян (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Б. Здравствуйте, Колян! Смотрите код в приложении. Удачи! Приложение: function Fibonachchi(n:integer):integer; begin if (n = 1) or (n=2) then result := 1 else result := Fibonachchi(n-1) + Fibonachchi(n-2); end; --------- Недавно прошёл тест на IQ. Результат отрицательный.

Ответ отправил: Николай Б. (статус: 6-ой класс) Ответ отправлен: 11.05.2006, 18:42 Оценка за ответ: 5

Отвечает: Lexus Здравствуйте, Колян! Привожу листинг консольного приложения на Delphi Писал сам, поэтому извинюсь за корявое оформление отступов там всяких... Приложение: program Project2; {$APPTYPE CONSOLE} uses SysUtils; procedure fibonachi(doN:integer); var i1,i2,l:longint; j:integer; begin write('1',', ','1',', '); i1:=1; i2:=1; for j:=3 to doN do begin l:=i1; i1:=i1+i2; i2:=l; write(i1,', '); end; end; var n:integer; begin write('vvedite n: '); readln(n); fibonachi(n); readln; end.

Ответ отправил: Lexus (статус: 3-ий класс) Ответ отправлен: 11.05.2006, 20:36 Оценка за ответ: 3

Вопрос № 42.770

Здравствуйте эксперты, подскажите пожалуйста: мне нужно вычислить интеграл с помощью метода прямоугольников ну и Delphi т. е. (b-a)/n*(f(x1)+f(x2)+...+f(xn)) тут вроде бы всё ясно b и a-пределы интегрирования, n-кол-во частей, а вот откуда "x" берётся мне не ясно!!!Подскажите??!!

Отправлен: 11.05.2006, 22:54 Вопрос задал: F Ruslan R (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Евгения Здравствуйте, F Ruslan R! Насколько я понимаю, то участок от a до b разбивается на n равных частей и за х1, х2, ..., хn беруться либо координаты левого конца каждого отрезка, т.е. х1=а, х2=a+(1*(b-a))/n, ... xn=a+((n-1)*(b-a))/n, либо координаты правого конца каждого отрезка... х1=a+(1*(b-a))/n, x2=(2*(b-a))/n, ..., xn=b... либо координаты середины каждого отрезка... это будут три разных метода... Надеюсь помогла... А вычислить это можно в цикле... --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 4-ый класс) Ответ отправлен: 11.05.2006, 23:40 Оценка за ответ: 5 Комментарий оценки: Спасибки!!!!:)))

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.32 от 03.05.2006