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

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

شروع موضوع توسط hasanjj ‏20 آپریل 2008 در انجمن Delphi

  1. hasanjj

    hasanjj Registered User

    تاریخ عضویت:
    ‏3 آگوست 2007
    نوشته ها:
    186
    تشکر شده:
    1
    کد:
    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:
    کد:
    Str
    
    خروجی Label2:
    کد:
    ame
    
    خروجی Label3:
    کد:
    ing