1. مهمان گرامی، جهت ارسال پست، دانلود و سایر امکانات ویژه کاربران عضو، ثبت نام کنید.
    بستن اطلاعیه

نحوه کار با LeftStr و RightStr و MidStr

شروع موضوع توسط minaaa ‏21/10/11 در انجمن Delphi

  1. کاربر پیشرفته

    تاریخ عضویت:
    ‏9/12/10
    ارسال ها:
    19,773
    تشکر شده:
    6,457
    امتیاز دستاورد:
    113
    نحوه کار با LeftStr و RightStr و MidStr
    Code:
    HTML:
    procedure  TForm1.Button1Click(Sender: TObject);
    var n,x:  integer;
    begin
    n:=3;
    x:=4;
    Label1.Caption:=LeftStr('String  Name',n);
    Label2.Caption:=RightStr('String  Name',n);
    Label3.Caption:=MidStr('String Name',x,n);
    end;
    n تعداد رشته برای جدا کردن.
    x شروع جدا کردن کاراکتر برای MidStr

    LeftStr تعداد n رشته از سمت چپ
    RightStr تعداد n رشته از سمت راست
    MidStr تعداد 4 رشته از سمت چپ شروع از کاراکتر x ام

    خروجی Label1:
    Code:
    HTML:
    Str
    خروجی Label2:
    Code:
    HTML:
    ame
    خروجی Label3:
    Code:
    HTML:
    ing[/HTML[/LEFT]
    [/INDENT]