Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Формат данных [D6, Paradox]

ava © (2003-03-15 13:14:00)
Немогу понять почему неработает условие
If Table1Sdata.Value = DateTimePicker1.Date then

Формат SData - DAte

ava (2003-03-15 16:17:00) [1]
Ответ :
Заменить DateTimePicker на DateEdit из RxLab
и нет проблем

ava (2003-03-15 15:18:00) [2]
>mojet on ne vidit polya v processe razrabotki, napr:
>ti sdelal sled.? :
> 2 raza najmi na Table1 i v otkrivayushiysa okoshke v pustom >meste najmi pravuyu knopku nishi, tam viberi "Add all fields" (dobavit vse polya), a potom doljen srabotat...
>a esli sdelal, to ne imeyu ponyatiya, vrode doljen rabotat...

Это все естественно сделано иначе-бы не компилировалось бы

Вот вся процедура

procedure TForm10.Button1Click(Sender: TObject);
begin
If RadioButton1.Checked = true then
begin

Form1.TSuma.Active := False;
Table1.Active := True;
Table1.First;
Label4.Caption := DateToStr(DateTimePicker1.DateTime) ;
while not Table1.Eof do
begin
if Table1Sdata.Value = DateTimePicker1.DateTime then
begin
Table1.Edit;
Table1Sdata.Value := DateTimePicker2.Date;
Table1.Post;
end;
Table1.Next;
end;

end else
If RadioButton2.Checked = true then
begin
Form1.TSuma.Active := False;
Table1.Active := True;
Table1.First;
while not Table1.Eof do
begin
if (Table1Sdata.Value >= DateTimePicker3.Date) and (Table1Sdata.Value <= DateTimePicker4.Date) then
begin
Table1.Edit;
Table1Sdata.Value := DateTimePicker5.Date;
Table1.Post;
end;
Table1.Next;
end;

end;

Table1.Active := False;
Form1.TSuma.Active := True;

end;

Label4 для контроля даты совпадают но условие не работает

spogi (2003-03-15 14:13:00) [3]
mojet on ne vidit polya v processe razrabotki, napr:
ti sdelal sled.? :
2 raza najmi na Table1 i v otkrivayushiysa okoshke v pustom meste najmi pravuyu knopku nishi, tam viberi "Add all fields" (dobavit vse polya), a potom doljen srabotat...
a esli sdelal, to ne imeyu ponyatiya, vrode doljen rabotat...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »