Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отображение даты в требуемом формате в Fast Report, содержимое Memo берется из Edit 
V
    Опции темы
Kbl4AH
Дата 22.5.2008, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15
Здравствуйте, уважаемые винградари.
У меня возникла проблема, не могу разобраться сам, помогите, пожалуйста.

У меня на форме есть Edit1, в который я ввожу дату в формате dd.mm.yyyy.
Также есть отчет FrxReport1, в котором есть объект Memo1.
Как мне сделать, чтобы при печати дата выводилась в формате dd mmmm yyyy, 
а не в dd.mm.yyyy?
Сам я смог сочинить только такой код:

Код

procedure TForm1.Print;

var  
  Data1: TfrxComponent;
begin

  Data1 := FrxReport1.FindObject('Memo1');
  (Data1 as TfrxMemoView).Text:= Edit1.Text;
  FrxReport1.ShowReport(True);

end;


Наверное, все не сложно, но мои эксперименты с форматированием ни к чему не привели.

Это сообщение отредактировал(а) Kbl4AH - 23.5.2008, 07:23
PM MAIL ICQ   Вверх
Vas
Дата 22.5.2008, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28
Код

procedure TForm1.Print;
var  
  Data1: TfrxComponent;
begin
  Data1 := FrxReport1.FindObject('Memo1');
  (Data1 as TfrxMemoView).Text:= FormatDateTime('dd mmmm yyyy', StrToDate(Edit1.Text));
  FrxReport1.ShowReport(True);
end;



--------------------
И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)
PM MAIL   Вверх
Kbl4AH
Дата 23.5.2008, 07:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15
Спасибо, Vas, все работает!
PM MAIL ICQ   Вверх
Alex
Дата 26.5.2008, 07:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162
Правой кнопкой мышки на компоненте memo, пункт "Форматирование", выбрать желаемый формат.


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Kbl4AH
Дата 26.5.2008, 07:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15
Цитата(Alex @ 26.5.2008,  07:25)
Правой кнопкой мышки на компоненте memo, пункт "Форматирование", выбрать желаемый формат.

Не, так не катит, ведь у меня входные данные String, а не Date.
PM MAIL ICQ   Вверх
Alex
Дата 3.6.2008, 07:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 17
Всего: 162
А не проще кинуть на форму DateTimePicker с закладки Win32 и от него получать уже не строку, а дату? Плюс не следить за кучей ошибок, которые может сделать пользователь вводя дату в Edit, пользователю куда приятней вводить только дату или вообще выбрать ее из календаря...


--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Deniz
Дата 3.6.2008, 07:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 8
Всего: 44
Код
Data1 := FrxReport1.FindObject('Memo1');
...
а зачем так сложно?
Можно в отчете создать переменную и уже в нее передавать.


--------------------
"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)
PM ICQ   Вверх
Nikolus
Дата 28.8.2008, 09:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 12.9.2007

Репутация: нет
Всего: нет
Цитата(Deniz @ 3.6.2008,  07:41)
Код
Data1 := FrxReport1.FindObject('Memo1');
...
а зачем так сложно?
Можно в отчете создать переменную и уже в нее передавать.


Как из Дельфи передать значение в переменную, которая определна в отчете FR?
PM MAIL   Вверх
Frees
Дата 28.8.2008, 09:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
frxReport.Variables['Имя переменной'] := <значение>


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Nikolus
Дата 28.8.2008, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 12.9.2007

Репутация: нет
Всего: нет
Frees, респект! Спасибо, работает.
PM MAIL   Вверх
Данкинг
Дата 28.8.2008, 11:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(Nikolus @  28.8.2008,  10:16 Найти цитируемый пост)
Как из Дельфи передать значение в переменную, которая определна в отчете FR? 

Я обычно использую OnGetValue:

Код

procedure TForm1.frxReport1GetValue(const VarName: String;
  var Value: Variant);
begin
if varname='manager' then value:=COMBOBOX1.TEXT;
if varname='zakaz' then value:=labelededit94.Text;
end;



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0975 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.