07-04-2008, 08:07 AM
السلام عليكم
عدلت الكود ليستطيع المستعمل ادخال معطيات
عدلت الكود ليستطيع المستعمل ادخال معطيات
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
SystemTime: TSystemTime;
NewTime, NewDate: string;
begin
NewTime := edit1.Text;
NewDate := edit2.text;
DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
SetLocalTime(SystemTime);
end;