مرحباً إخواني المبرمجين
لدي سؤال و أرجو ممن يعرف الجواب أن يرد علي
في الدلفي نستخدم الأمر Inttohex لتحويل البيانات من integer إلى Hex
و الأمر المعاكس هو ($) و المشكلة أنه لا يقبل بعده سوى رقم اي لا يقبل متغيير يحمل قيمة عددية
هل هناك أمر يقوم بتحويل البيانات من Hex إلى Integer غير ($)
مشكور سلفاً
تم تعديل هذه المشاركة بواسطة 007GB في 30 أغسطس 2007 في 11:14
المستبد يتحكم في شؤون الناس بإرادته لا بإرادتهم و يحكمهم بهواه لا بشريعتهم و يعلم من نفسه أنه الغاصب المتعدي فيضع كعب رجله على أفواه الملايين من الناس يسدها عن النطق بالحق و التداعي لمطالبته
لم افهم اين المشكلة التي تواجهك؟؟
جرب عمل مشروع جديد ثم ضع Label عليه و جرب الكود التالي
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
s: string;
begin
s := 'FD';
i := StrToInt('$' + s);
Label1.Caption:= IntToStr(i);
end;رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.
لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"
وهذه اخرى مشابهة
function Hex2Int(Hx : String): DWord;
var Code : Integer;
begin
if Hx[1] = '$' then Delete(Hx, 1, 1);
while Hx[1] = '0' do Delete(Hx, 1, 1);
Val('$' + Hx, Result, Code);
if Code <> 0 then Result := 0;
end;تم تعديل هذه المشاركة بواسطة B.M.AbdelAziZ في 30 أغسطس 2007 في 23:46
الشكر الجزيل لكم و جاري التجريب .
الرجاء أن تنتظروني و أرجو ألا يضيق صبركم علي
المستبد يتحكم في شؤون الناس بإرادته لا بإرادتهم و يحكمهم بهواه لا بشريعتهم و يعلم من نفسه أنه الغاصب المتعدي فيضع كعب رجله على أفواه الملايين من الناس يسدها عن النطق بالحق و التداعي لمطالبته
نجحت و شكراً
المستبد يتحكم في شؤون الناس بإرادته لا بإرادتهم و يحكمهم بهواه لا بشريعتهم و يعلم من نفسه أنه الغاصب المتعدي فيضع كعب رجله على أفواه الملايين من الناس يسدها عن النطق بالحق و التداعي لمطالبته
هذا الموضوع مغلق.