+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم التحويل من Hex to String؟ (/showthread.php?tid=535)
كيف يتم التحويل من Hex to String؟ - Goblin - 04-02-2009
[COLOR="RoyalBlue"]السلام عليكم و رحمة الله و بركاته
كيف يتم التحويل من Hex الي String ?
استفسار بسيط: ما سبب غياب دروس الدلفي الخاصة بالمنتدي اكثر من اسبوعين ?[/COLOR]
كيف يتم التحويل من Hex to String؟ - محمد عبد العزيز - 04-02-2009
احد اشهر الطريق : اضافة '$' يسار قيمة ال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;
بالنسبة دورة دلفي : تمرين الدرس الاخير لم يشارك به الا شخص واحد فقط وهذا شيئ محبط نظرا للجهذ المبذول للقيام بالدورة
مع ذلك الدرس الموالي قريبا ان شاء الله
والسلام عليكم
كيف يتم التحويل من Hex to String؟ - sandokhane - 04-02-2009
إقتباس :احد اشهر الطريق : اضافة '$' يسار قيمة الhex ثم تحويله إلى عدد باستخدام strtoint
المعذرة ، هذا تحويل إلى النظام العشري.
كيف يتم التحويل من Hex to String؟ - Goblin - 04-02-2009
[COLOR="RoyalBlue"]اخي DeltaAziz
اولا: الحمد لله ان الدورة بخير.
ثانيا: سؤالي هو عن تحويل Hex الي String و ليس Hex الي Decimal ![/COLOR]
كيف يتم التحويل من Hex to String؟ - محمد عبد العزيز - 04-02-2009
عذرا! يبدو ان المشروع الذي اعمل عليه اعمى بصري
-
الHex هو اصلا String
فماذا تعني التحويل الى String ؟ ضع مثال قبل وبعد التحويل
ربما ارى النور!
كيف يتم التحويل من Hex to String؟ - Goblin - 04-02-2009
[COLOR="RoyalbLUE"]اخي DeltaAziz
اسلامة بصرك.
مثال: اذا ادخلت 47 يكون الناتج "G".[/COLOR]
كيف يتم التحويل من Hex to String؟ - محمد عبد العزيز - 04-02-2009
استخدم Char
PHP كود :
Caption := Char($47);
كيف يتم التحويل من Hex to String؟ - Goblin - 04-02-2009
هذا هو المطلوب, شكرا اخي DeltaAziz.
كيف يتم التحويل من Hex to String؟ - sandokhane - 05-02-2009
وهذا كود بسيط يحول المدخلات في 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;تصبحون على خير.