ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Продолжение темы Вопросы по Delphi (до версии 2009) - часть 4 Познаем сами, помогаем другим... Обсуждаем вопросы, не связанные с юникоидными версиями Delphi - для этого есть соответствующая тема (см. ссылки ниже). Правила топика: Прежде чем спрашивать: Желательно изучить вопрос, попытаться найти ответ в прилагаемых мануалах, хелпах и анализируя исходники. Выполнить поиск по топику (открыть "Версия для печати" и поискать ответ там). Применить фильтр по разделу "Прикладное программирование". Ответы на многие старые вопросы могли быть даны в отдельных темах. Продумайте вопрос. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите. Желательно указывать версии используемого компилятора и операционной системы. Прежде чем отвечать: Если не можете помочь, не мешайте. Если уж вы отвечаете на вопрос, давайте ответ по сути. Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа. Задавайте дополнительные вопросы, чтобы получить больше информации. Отсутствие ответа не равносильно игнорированию - иногда участники форума просто не знают ответ. Повторная посылка вопроса не приветствуется. Посты типа "неужели никто не знает ответа..." или "может мне все-таки кто-нибудь ответит" недопустимы.   Все большие куски кода (более 5 строк) оформляем в тег [morе] дабы уменьшить размер поста. FAQ по тегу [morе]. Некоторые "родственные" топики: Вопросы по Delphi (версии 2009-2010 Weaver) Вопросы по компонентам для Delphi, C++ Builder Использование DevExpress Вопросы по Ehlib Компоненты и утилиты для Delphi/BCB/FreePascal/Lazarus - только Open Source Коммерческие компоненты и утилиты для Delphi/BCB Прикладное программирование и не только... См. также: Некоторые полезные ресурсы о Delphi Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:09 28-06-2009 | Исправлено: psa1974, 12:00 02-02-2010

greenpc Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Odysseos поставьте dt вчерашний день Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 15:38 11-02-2010

Odysseos Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору greenpc   Тогда просто Frac не надо брать:   Код:   Writeln(Trunc((Now() - dt) * 24 * 60));     Всего записей: 186 | Зарегистр. 02-01-2006 | Отправлено: 15:58 11-02-2010

zakov Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Уважаемые знатоки! Подскажите, как лучше формировать печатные формы??? Можно ссылками на хорошие статьи поделиться Думал использователь Word, однако много разных алгоритмов. Как лучше? может специальные компоненты есть??? Всего записей: 163 | Зарегистр. 24-01-2008 | Отправлено: 00:31 13-02-2010

EugeneBoss3 Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Уважаемые знатоки! Подскажите, плиз, как заменить стандартную кнопку на ComboBox'ах на свою с глифом. Заранее благодарен. Всего записей: 247 | Зарегистр. 15-09-2009 | Отправлено: 03:48 14-02-2010

Odysseos Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору EugeneBoss3   В обычном TComboBox - никак, потому что эту кнопку внутри него (вместе со стрелочкой) рисует нижележащий виндовый контрол. Надо пользовать какие-то другие компоненты, которые рисуют такую кнопочку сами - из RxLib или EhLib, например. Всего записей: 186 | Зарегистр. 02-01-2006 | Отправлено: 19:41 14-02-2010

jonikDk Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору zakov Цитата: Думал использователь Word, однако много разных алгоритмов. есть еще ekRtf Report hxxp://ekrtf.code.net.ru/  в варезнике тоже есть. Но сам я лично предпочитаю FastReport Всего записей: 1603 | Зарегистр. 01-03-2004 | Отправлено: 22:39 14-02-2010

zakov Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Всем спасибо, посмотрел статистику ответов, решил разбираться с FastReport. Может кто интересной литературой по этому поводу поделится??? Всего записей: 163 | Зарегистр. 24-01-2008 | Отправлено: 10:07 15-02-2010

Varenik Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору zakov А что - help'ов с оффсайта разве недостаточно? ---------- Если нравится, считайте, что получилось… Всего записей: 1766 | Зарегистр. 21-07-2001 | Отправлено: 16:01 15-02-2010

jonikDk Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору zakov я считаю что у FastReport суперская документация. Бери на оффсайте на русском языке. Всего записей: 1603 | Зарегистр. 01-03-2004 | Отправлено: 17:50 15-02-2010

Man Without Face Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Всем привет, подскажите пож почему график криво строится: var bar_ser:TBarSeries;   mseries:array of TFastLineSeries;   mproduct:array of integer;   count_product,i,j:integer; --------------------------------------------------------------------------       dbChart1.View3D:=false;       dbChart1.Legend.Visible:=true;       dbChart1.Legend.ColorWidth:=0;       dbChart1.Legend.ShadowSize:=1;       dbChart1.Legend.Alignment:=laRight;       dbChart1.Legend.ColorWidth:=15;         dbChart1.SeriesList.Clear;         begin         count_product:=0;         while not(qCharts.Eof) do begin           inc(count_product);           SetLength(mproduct,count_product);           mproduct[count_product-1]:= qCharts.FieldByName('rc_smenavol_volumenum').AsInteger;           qCharts.Next;         end;         //Строю график         qryTemp.Open;         for i:=0 to count_product-1 do begin           SetLength(mseries,dbChart1.SeriesList.Count+1);           mseries[dbChart1.SeriesList.Count]:=TFastLineSeries.Create(dbChart1);           mseries[dbChart1.SeriesList.Count].LinePen.Width:=2;           dbChart1.AddSeries(mseries[dbChart1.SeriesList.Count]);           for j:=Trunc(cxdedReservFrom.Date) to Trunc(cxdedReservTo.Date) do begin             if (qryTemp.FieldByName('rc_smenavol_volumenum').AsInteger = mproduct[i])and (trunc(qryTemp.FieldByName('rc_sd_begindate').AsDateTime) =j) then begin                   mseries[dbChart1.SeriesList.Count-1].Add(qryTemp.FieldByName('otklon_fakdvforsmena').AsFloat,DateToStr(j));               mseries[dbChart1.SeriesList.Count-1].SeriesColor:= qryTemp.FieldByName('producttypes_color').AsInteger;               mseries[dbChart1.SeriesList.Count-1].Title:= qryTemp.FieldByName('producttypes_productname').AsString;               qryTemp.Next;             end             else //mseries[dbChart1.SeriesList.Count-1].Add(0,DateToStr(j));           end;         end;       end;   Заранее спасибо. Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 17:58 15-02-2010

zakov Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: zakov   я считаю что у FastReport суперская документация. Бери на оффсайте на русском языке.   всем списибо большое уже скачал... Всего записей: 163 | Зарегистр. 24-01-2008 | Отправлено: 19:25 15-02-2010

V1s1ter Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Man Without Face Цитата: Всем привет, подскажите пож почему график криво строится В чем закрючается криво? Один столбик больше другого? Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 20:41 15-02-2010

Man Without Face Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору V1s1ter Нет, диаграмма рисуется не в соответствии с данными Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 09:07 16-02-2010

Man Without Face Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору volser Спасибо, уже разобрался Всего записей: 381 | Зарегистр. 25-01-2010 | Отправлено: 12:13 16-02-2010

V1s1ter Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Man Without Face 1)   Пишу по памяти, возможны не точности. Вместо dbChart1.SeriesList.Count пользуйтесь dbChart1.SeriesCount 2) Когда В первый раз  выполняется цикл   for i:=0 to count_product-1 do begin Возможно у Вас dbChart1.SeriesList.Count = 0 (если Вы ранее не создавали серии) и тогда в строках типа mseries[dbChart1.SeriesList.Count-1] Вы обращаетесь к не созданой серии. 3) Это не ответ, а рекомендация. У Вас в этом фрагменте и так слишком запутаный код рекомедую писать проще и меньше перераспределять память. Всего записей: 948 | Зарегистр. 06-02-2007 | Отправлено: 12:32 16-02-2010

MegoChelovek Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Бодрого врмени суток !1   вобщем вопрос довольно примитивный, но я все равно понять не могу почему так и как решить проблему, вобщем есть вот такой код   это функция которая обрезает вещественное число, чтобы после запятой была только одна цифра   Код:   function obrezanie(S: string; Count: Integer): String;   //Count - количество цифр после запятой var     N: Integer; begin   //после запятой - длинная последовательность цифр   N:=Pos(',', S);   //позиция запятой в строке   N:=N+Count;   //вычисляем длину строки с нужным количеством знаков после запятой   Result:=Copy(S, 1, N); end;     дальше преобразуем эту строку в тип Integer Код:   koordX:= x0+round((strtofloat(obrezanie(Form1.Edit1.Text,1)))*40);   так вот когда я в Эдит ввожу отрицательное число, то компилятор начинает ругаться...как быть ?   x0 - это начало координат, 40 - это единичный отрезок, если вдруг интересно Всего записей: 33 | Зарегистр. 08-12-2009 | Отправлено: 21:50 16-02-2010 | Исправлено: MegoChelovek, 22:33 16-02-2010

Страницы: 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

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

ShIvADeSt (19-05-2010 05:14): Продолжаем тут http://forum.ru-board.com/topic.cgi?forum=33&topic=11215

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование