Programozással kapcsolatban kérnék segítséget. Egy datetimepicker komponenssel lenne gondom. Minden működik addig amíg a dátumformátumot át nem állítom mondjuk angol kiosztásra. Ezt már nemigen kezeli. Mi a megoldás?

Szia.

Szerintem a gond itt van :

procedure TForm1.Button2Click(Sender: TObject);

begin

DateTimePicker1.date:=strtodate(FormatDateTime('yyyy.M.d.', strtodate(edit1.text)+1));

end;

Miért kell megformázni ?

Részlet a delphi helpjéből :

"TDateTimePicker is a visual component designed specifically for entering dates or times. In dmComboBox date mode, it resembles a list box or combo box, except that the drop-down list is replaced with a calendar illustration; users can select a date from the calendar. Dates or times can also be selected by scrolling with Up and Down arrows and by typing.

Date-time picker ignores the BiDiMode setting for right-to-left reading, displaying dates according to the system locale.

TDateTimePicker formats date and time values according to the date and time settings in the Regional Settings of the Control panel on the user’s system. Because TDateTimePicker is a wrapper for a Windows control, these formats can’t be changed by changing the formatting variables in the SysUtils unit. However, you can use the Windows API call DateTime_SetFormat to programmatically specify these settings.

Note: The underlying Windows control is known to behave unpredictably when used to set dates in 1752, the year English-speaking countries changed to the Gregorian calendar. Similar problems may appear for different dates when a non-English locale is used. If an application might be used to specify dates on or before the changeover in the current locale (for example, 1918 or before in Russian locales), be sure to test the application using the dates affected."

**********************************************************

Ez a lényeg : TDateTimePicker formats date and time values according to the date and time settings in the Regional Settings of the Control panel on the user’s system.

Tehát mindig a rendszerdátum formátumát használja, akkor viszont nem kell megformázni, próbáld igy :

procedure TForm1.Button2Click(Sender: TObject);

begin

DateTimePicker1.date:=strtodate(edit1.text)+1;

end;

Sok sikert.

Üdv.