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

[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;

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