كيف يتم التحويل من Hex to String؟

[Goblin]

السلام عليكم و رحمة الله و بركاته

كيف يتم التحويل من Hex الي String ?

استفسار بسيط: ما سبب غياب دروس الدلفي الخاصة بالمنتدي اكثر من اسبوعين ?

[B.M.AbdelAziZ]

احد اشهر الطريق : اضافة '$' يسار قيمة الHex ثم تحويله إلى عدد باستخدام strToInt

Function Hex2Int(H:String):Integer;
Begin
Result:=StrToInt('$'+H);
End;

مثال للاستعمال

var
X : integer;
begin
X := Hex2Int('DEAD');
showmessage(inttostr( X ));
end;


بالنسبة دورة دلفي : تمرين الدرس الاخير لم يشارك به الا شخص واحد فقط وهذا شيئ محبط نظرا للجهذ المبذول للقيام بالدورة
مع ذلك الدرس الموالي قريبا ان شاء الله

والسلام عليكم

[sandokhane]

احد اشهر الطريق : اضافة '$' يسار قيمة الhex ثم تحويله إلى عدد باستخدام strtoint

المعذرة ، هذا تحويل إلى النظام العشري.

[Goblin]

اخي DeltaAziz
اولا: الحمد لله ان الدورة بخير.
ثانيا: سؤالي هو عن تحويل Hex الي String و ليس Hex الي Decimal !

[B.M.AbdelAziZ]

عذرا! يبدو ان المشروع الذي اعمل عليه اعمى بصري
-
الHex هو اصلا String
فماذا تعني التحويل الى String ؟ ضع مثال قبل وبعد التحويل
ربما ارى النور!

[Goblin]

اخي DeltaAziz
اسلامة بصرك.

مثال: اذا ادخلت 47 يكون الناتج "G".

[B.M.AbdelAziZ]

استخدم Char

Caption := Char($47);

[Goblin]

هذا هو المطلوب, شكرا اخي DeltaAziz.

[sandokhane]

وهذا كود بسيط يحول المدخلات في edit1 من النظام السداسي عشر إلى النظام العشري ثم يقلبها إلى حروف (حسب جدول Ascii) ، لتظهر النتيجة في edit2.

procedure TForm1.Button1Click(Sender: TObject);
var
X: integer;
mystring:string;
begin
mystring:=Edit1.Text;
Edit2.Text:='';

try

while length(mystring) <> 0 do
begin

X := strtoint('$'+mystring[1]+mystring[2]);
Edit2.Text:=Edit2.Text+char(X);
Delete(mystring, 1, 2);
end;

Except
edit2.Text:='';
beep;
end;

end;


تصبحون على خير.