RZ-007
дополнил код данного события
procedure Form2_Edit1_OnChange (Sender: string);
var
s: string;
YY, MM, DD: string;
HH, MIN, SEC: string;
dt: TDateTime;
WDay: integer;
begin
s := Form2.Edit1.Text;
if Length(s)=14 then
begin
DD := Copy(s, 1, 2);
MM := Copy(s, 3, 2);
YY := Copy(s, 5, 4);
HH := Copy(s, 9, 2);
MIN := Copy(s, 11, 2);
SEC := Copy(s, 13, 2);
try
dt := Trunc(EncodeDate( StrToInt(YY),StrToInt(MM),StrToInt(DD) )) + Frac(EncodeTime( StrToInt(HH),StrToInt(MIN),StrToInt(SEC), 0 ));
Form2.DateTimePicker1.DateTime := Frac(dt);
Form2.DateTimePicker2.DateTime := Trunc(dt);
Form2.Edit1.Color := clWhite;
WDay := DayOfWeek(Form2.DateTimePicker2.Date)-1;
if WDay = 0 then Form2.ComboBox1.ItemIndex := 7 else Form2.ComboBox1.ItemIndex := WDay;
except
Form2.DateTimePicker1.Checked := False;
Form2.DateTimePicker2.Checked := False;
Form2.Edit1.Color := clRed;
Form2.ComboBox1.ItemIndex := 0;
end;
end else
begin
Form2.DateTimePicker1.Checked := False;
Form2.DateTimePicker2.Checked := False;
Form2.Edit1.Color := clWhite;
end;
end;
надеюсь вы не собираетесь сохранять день недели в базу )
Dmitry.