Задачка для ComboBox

[Comer_Jus]

Задача простая но изза ЖАРЫ голова не соображает СПАСИТЕ ЛЮДИ!!!!


имею ComboBox c одним item'ом ='Сегодня'
ComboBox1.Text=''
нужно при выборе пункта 'Cегодня' вывести в combo текущую дату
( типа DateTimeToStr(Time) )
и чтобы пункт 'Сегодня' остался не тронутым

извеняюсь за детский вопрос но НаДо

[shosse]

событие onChange;

код приблизительно такой:

cb=ComboBox1

if cb.text='Сегодня' then cb.text:=DateTimeToStr(Time);

[Comer_Jus]

Так не работает

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
 if combobox1.text='Сегодня' then combobox1.text:=DateTimeToStr(Time);
end;

[shosse]

А что не работает??? Не выполняется условие????
Можее быть cb.items.(text или name). Завтра дойду до работы и проверю. Тогда отпишу.

[Roof]

Сделай так:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.Items.Count >= 2
   then
     Combobox1.ItemIndex:= 1
  else
    if ComboBox1.ItemIndex= 0
      then begin
        ComboBox1.Items.Add(DateToStr(Date));
        Combobox1.ItemIndex:= 1;
      end;
end;

хотя с моей точки зрения выводить вComboBox дату несуразно как-то

[Comer_Jus]

Может и не привычно но удобно
если своя дата то ручками если текущая то кнопочкой
комбов на форме много и заполнять квитанцию так быстрее
а насчёт предложенного способа то работает но добавленный
Item с датой остаётся если бы так - в комбо (Text) появился а пункты
не добавились
Применять может и не буду (подумаю) просто была интересна сама реализация такой простой задачки
Всем спасибо!!!
если есть другие варианты жду ответа

[Stilet]

если есть другие варианты жду ответа

TDateTimePicker.

[drakhar]

Сообщение от Stilet

TDateTimePicker.

Не подскажите каким образом можно вытащить введенную дату из таймпикера, и использовать ее в sql запросе на внос данных?
Проблема в том что в sql тип date записывается гггг-мм-дд,а затем приводится к виду дд.мм.гггг, а таймпикер как я понимаю пишет дд.мм.гггг...Да и в запросе datetimepicker1. не дает выбрать дату.

[Terran]

Сообщение от drakhar

Не подскажите каким образом можно вытащить введенную дату из таймпикера, и использовать ее в sql запросе на внос данных?
Проблема в том что в sql тип date записывается гггг-мм-дд,а затем приводится к виду дд.мм.гггг, а таймпикер как я понимаю пишет дд.мм.гггг...Да и в запросе datetimepicker1. не дает выбрать дату.

Можете сделать так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit1.Text:=DateToStr(DateTimePicker1.Date);
End;

Так же можете поставить любой формат выводимой даты. У DateTimePicker есть свойство Format.

[Квэнди]

один вопрос- одна тема.
закрыто