تغيير وقت و تاريخ النظام

[bilgads]

بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله و بركاته
الكود يقوم بتغيير الوقت و التاريخ للنظام
procedure TForm1.Button1Click(Sender: TObject);
var
SystemTime: TSystemTime;
NewTime, NewDate: string;
begin
NewTime := '12:00:00';
NewDate := '01/01/2010';
DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
SetLocalTime(SystemTime);



end;

end.

[bsm12]

السلام عليكم
عدلت الكود ليستطيع المستعمل ادخال معطيات

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;

[bsm12]

الكود سورس

[snyper]

عندي سؤال اي الاوامر افضل للمعالج

1- ننسب محتوايات الايدت لمتحول
2- مانستخدم متحولات ابدا بما انه تعليمة صغيرة نسبيا

وايها افضل مثلا لوتوفر عدد كبير من الايدت

ام لايوجد فرق

[bilgads]

لا شكر على واجب
عندي سؤال اي الاوامر افضل للمعالج

1- ننسب محتوايات الايدت لمتحول
2- مانستخدم متحولات ابدا بما انه تعليمة صغيرة نسبيا

وايها افضل مثلا لوتوفر عدد كبير من الايدت

ام لايوجد فرق

على ما أضن أنّه لا يوجد فرق
لكن لا تحكم على صغر الحجم
فربّما كود 5 اسطر يكون اسرع من كود سطر واحد والله أعلم