چگونه میتوان یک متن را در دلفی دریافت و کد اسکی آنرا پیدا کرد و بالعکس؟

[s.moghadam1989]

دوستان عزیز خواهشا زودتر راهنماییم کنین ممنوون:ناراحت:
دستوری رو می خوام که کاراکتر رو به کد اسکی تبدیل کنه و با دادن عدد کد اسکی رو نشون بده توی دلفی
فرصت ندارما
لطفا عجله کنین پروژم مونده
:لبخند:حتما تو مشکلات دیگتون جبران می کنم
منتظرم . . . :افسرده:

[Hsimple11]

دوست گرامی مگه به فونت درشت سریع تر جواب داده میشه؟!

Chr کد اسکی کلید وارد شده را بر میگرداند. مثلا KeyPreview فرم را True کنید و در رویداد OnKeyDown مربوط به فرم خود بنویسید :


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption:=Chr(Key)+' - '+IntToStr(Key);

end;

[Hsimple11]

اما در مورد کاراکتر ها توجه داشته باشید که تابع Chr کاراکتر کد اسکی وارد شده را مشخص می کند مثلا :


Chr(65)

کاراکتر A را بر میگرداند.

در مقابل تابع Ord مقدار اسکی کاراکتر ورودی را می دهد.


Ord('A')

برابر با 65 خواهد بود.

[s.moghadam1989]

دوستان عزیز من می خوام برنامه ای بنویسم که یه متن تو دلفی بگیره بعد کاراکتر های متن رو یه جا ذخیره کنه و با زدن دکمه ی "کد کن" کد ها رو به اضافه ی 5 کرده و به حرف تبدیل کند و نمایش دهد
یعنی متن را به رمز تبدیل کند
لطفا راهنماییم کنین
خیلی وقته دلفی ننوشتم اصلا یادم نیست:گریه:
اگه ممکنه کدشو بگید بهم
:لبخندساده:ممنونم

[Hsimple11]

در تاپیک مربوط به خود سوال خود را بپرسید. در همان تاپیک در مورد آن صحبت می کنیم.

موفق باشید.