بدست آوردن كد اسكي يك Edit.text

دوستان عزيز كمك كنن تا بتونم چند كاراكتر را بصورت پيوسته به كد اسكي تبديل كنم و همچنين برعكس

نقل قول:

---

نوشته شده توسط aliray2000 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دوستان عزيز كمك كنن تا بتونم چند كاراكتر را بصورت پيوسته به كد اسكي تبديل كنم و همچنين برعكس

---

سلام. خوش آمدید
از کدی شبیه کد زیر برای تبدیل حروف به کد اسکی استفاده کنید:

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var
  s,str:String;
  i:integer;
begin
s:=Edit1.Text;
for i:=1 to length(s) do
  str:=str+IntToStr(Ord(s[i]))+' ';
ShowMessage(str);
end;

---

برای تبدیل کدها به کاراکتر هم از CHR() استفاده کنید
موفق باشید