Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как вставить дату в memo, TdateTime не хочет 
:(
    Опции темы
NoliX
Дата 23.7.2005, 22:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1



собственно, не пойму, Tdatetime не хочет, говорит не совпадение типов, а нужно чтоб при нажатии на кнопку в том месте где курсор появлялось время, текущее, на другую кнопку нажать, появляется дата, а на трентью дата +время smile
--------------------
Опыт - это учитель, который очень дорого берет за свои уроки
PM MAIL   Вверх
Pakshin A. S.
Дата 23.7.2005, 22:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61



Для бОльшего простора юзай FormatDateTime()

Описание найдешь в хелпе... smile

Добавлено @ 22:57
А по-простому можно и так написать...
Код

Memo1.Lines.Add(DateToStr(Now));

PM   Вверх
Poseidon
Дата 23.7.2005, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133



Поправочка smile

Думаю, раз используется тип Tdatetime (а не TDate), то правельнее будет использовать DateTimeToStr. Хотя все зависет от конкретного случая.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
NoliX
Дата 23.7.2005, 23:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1



Не компилится =(
[Error] Unit1.pas(475): Incompatible types: 'String' and 'PAnsiChar'
--------------------
Опыт - это учитель, который очень дорого берет за свои уроки
PM MAIL   Вверх
Pakshin A. S.
Дата 23.7.2005, 23:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61



Цитата(Pakshin @ 23.7.2005, 23:57)
Для бОльшего простора юзай FormatDateTime()


Добавлено @ 23:16
Цитата(NoliX @ 24.7.2005, 00:13)
Не компилится =(
[Error] Unit1.pas(475): Incompatible types: 'String' and 'PAnsiChar'


СТОП! ТАма везде стринги!

Код в студию!
PM   Вверх
Quadr0
Дата 23.7.2005, 23:17 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:49
  Вверх
Pakshin A. S.
Дата 23.7.2005, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61



Цитата(Quadr0 @ 24.7.2005, 00:17)
Где это тебе PChar понадобился?

Причем при вставке в мемо... может это он через функции работы со строками?
Добавлено @ 23:20
Тогда, к примеру,
Код

var p: PAnsiChar;
...

p:=PChar(DateTimeToStr(now));


Это сообщение отредактировал(а) Pakshin A. S. - 23.7.2005, 23:20
PM   Вверх
NoliX
Дата 23.7.2005, 23:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1



Код

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
Memo2.SetSelTextBuf(DateTimeToStr(Now));
end;


вот
--------------------
Опыт - это учитель, который очень дорого берет за свои уроки
PM MAIL   Вверх
Pakshin A. S.
Дата 23.7.2005, 23:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61



Поставь PChar()...
Memo2.SetSelTextBuf(PChar(DateTimeToStr(Now)));
PM   Вверх
NoliX
Дата 23.7.2005, 23:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: 1



работает =) спасибо огромное...
--------------------
Опыт - это учитель, который очень дорого берет за свои уроки
PM MAIL   Вверх
Pakshin A. S.
Дата 23.7.2005, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 21
Всего: 61



Цитата(NoliX @ 24.7.2005, 00:38)
работает =) спасибо огромное...

Не за что... обращайся, если что надо... И почитай про FormatDateTime(), т. к. он немного мощнее...





Это сообщение отредактировал(а) Girder - 24.7.2005, 02:59
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




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


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

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