آژانس هواپیماییexchanging

تبدیل کاراکتر(متغیر از نوع چار) به کد اسکی و برعکس

شروع موضوع توسط peiman ‏4 اکتبر 2005 در انجمن Delphi

  1. peiman

    peiman Registered User

    تاریخ عضویت:
    ‏23 فوریه 2003
    نوشته ها:
    1,544
    تشکر شده:
    20
    سلام به همه
    برای تبدیل یه کاراکتر به کد اسکی و برعکس (تبدیل کد اسکی به کاراکتر) چه دستوری وجود داره
    اصلا برای همچین کاری دستور وجود داره؟
     
  2. saeedsmk

    saeedsmk مدیر بازنشسته

    تاریخ عضویت:
    ‏6 سپتامبر 2003
    نوشته ها:
    1,519
    تشکر شده:
    4
    توي چه زبوني؟
    مثلا توي vb
    a=chr(12)
    stringdumm=asc("a"(
     
  3. peiman

    peiman Registered User

    تاریخ عضویت:
    ‏23 فوریه 2003
    نوشته ها:
    1,544
    تشکر شده:
    20
    خب اینجا فروم دلفی هست نه؟
     
  4. mamizadeh

    mamizadeh کاربر تازه وارد

    تاریخ عضویت:
    ‏25 سپتامبر 2005
    نوشته ها:
    78
    تشکر شده:
    0
    با سلام
    دستور chr برای تبدیل کد اسکی به کاراکتر و دستور ord برای تبدیل کاراکتر به کد اسکی
     
  5. peiman

    peiman Registered User

    تاریخ عضویت:
    ‏23 فوریه 2003
    نوشته ها:
    1,544
    تشکر شده:
    20
    ببین من یه مشکل دیگه دارم
    من میخوام از یه رشته دونه دونه کاراکتر جدا کنم و کد اسکی شو مثلا بعلاوه سه کنم بعد دوباره یه رشتش کنم ولی با این دستور نمیشه یه رشته تک کاراکتری رو به کد تبدیل کرد
    راه حلی واسه این کار من بلدی؟
     
  6. peiman

    peiman Registered User

    تاریخ عضویت:
    ‏23 فوریه 2003
    نوشته ها:
    1,544
    تشکر شده:
    20
    در واقع میخوام یه رشته رو به کد اسکی تبدیل کنم
    راهی داره؟
     
  7. appbannerkhuniresbanner
  8. behzad53a

    behzad53a کاربر تازه وارد

    تاریخ عضویت:
    ‏2 آگوست 2005
    نوشته ها:
    13
    تشکر شده:
    0
    اگه منظ.رت رو درست فهميده باشم
    اينطوري ميشه:

    بجاي 5 اگه طول رشته رو نداري ميتوني strlen استفاده كني حتي اگه 1 كاراكتري هم باشه كار ميكنه.

    اسكي هر كاراكتر با يكي كمتر از انديسش جمع شده و دوباره يه رشته جديد درست شده. شما ميتوني هر كار ديگه خواستي انجام بدي. :cool:

    کد:
    var
      i: Integer;
      str: string;
    begin
      str := 'alaki';
    
      for i:= 1 to 5 do
        str[i] := Chr( Ord(str[i]) + i -1);
     
  9. peiman

    peiman Registered User

    تاریخ عضویت:
    ‏23 فوریه 2003
    نوشته ها:
    1,544
    تشکر شده:
    20