04-02-2009, 08:04 PM
احد اشهر الطريق : اضافة '$' يسار قيمة الHex ثم تحويله إلى عدد باستخدام strToInt
PHP كود :
Function Hex2Int(H:String):Integer;
Begin
Result:=StrToInt('$'+H);
End;
PHP كود :
var
X : integer;
begin
X := Hex2Int('DEAD');
showmessage(inttostr( X ));
end;
بالنسبة دورة دلفي : تمرين الدرس الاخير لم يشارك به الا شخص واحد فقط وهذا شيئ محبط نظرا للجهذ المبذول للقيام بالدورة
مع ذلك الدرس الموالي قريبا ان شاء الله
والسلام عليكم


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)