+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : تغيير وقت و تاريخ النظام (/showthread.php?tid=130)
تغيير وقت و تاريخ النظام - bilgads - 06-04-2008
بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله و بركاته
الكود يقوم بتغيير الوقت و التاريخ للنظام
كود :
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 - 07-04-2008
السلام عليكم
عدلت الكود ليستطيع المستعمل ادخال معطيات
كود :
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 - 07-04-2008
الكود سورس
تغيير وقت و تاريخ النظام - snyper - 03-05-2008
عندي سؤال اي الاوامر افضل للمعالج
1- ننسب محتوايات الايدت لمتحول
2- مانستخدم متحولات ابدا بما انه تعليمة صغيرة نسبيا
وايها افضل مثلا لوتوفر عدد كبير من الايدت
ام لايوجد فرق
تغيير وقت و تاريخ النظام - bilgads - 03-05-2008
لا شكر على واجب
snyper كتب :عندي سؤال اي الاوامر افضل للمعالج
1- ننسب محتوايات الايدت لمتحول
2- مانستخدم متحولات ابدا بما انه تعليمة صغيرة نسبيا
وايها افضل مثلا لوتوفر عدد كبير من الايدت
ام لايوجد فرق
على ما أضن أنّه لا يوجد فرق
لكن لا تحكم على صغر الحجم
فربّما كود 5 اسطر يكون اسرع من كود سطر واحد والله أعلم