اعداد

[ramin_rp]

سلام
برنامه ای داریم که عدادی را چاپ خواهد کرد میخوام وقتی مثلا با حالت 123456برخرد کرد
بنویسه 1..6با چه کدی می تونم این کار راانجام دهم؟
:oops:

[SReza1]

من اگه درست متوجه شده باشم میتونی اون عدد رو داخل یک متغیر بریزی و اگه مستوی شد اون کاری رو که م خواهی بکن
مثلا
var X : Integer
if X = 123456 Then
.............
والا دیگه چی بگم!!

[ramin_rp]

هر چی دوست داری
دوست عزیز این برنامه حدود 100عدد خروجی خواهد داشت!

[SReza1]

procedure TForm1.Button1Click(Sender: TObject);

Var I : Integer;

begin

    For I := 1 To 1000 Do

        ListBox1.Items.Add(GenerateNumber(IntTostr  (I)));

end;



Function TForm1.GenerateNumber(Value : String) : String;

Var Flag : Boolean;

    MyS  : String;

    I    : Integer;

Begin

    Flag := True;

    I    := 2;

    While (I <= Length(Value)) And (Flag) Do

    Begin

           If Not (StrToInt(Value[I - 1]) + 1 = StrToInt(Value[I])) Then

              Flag := False;

           Inc(I);

    End;

    If Flag Then

    Begin

       MyS := '';

       For I := 1 To Length(Value) Do  // For Reverse String

           MyS := Value[I] + MyS;

       Result :=  MyS

    End

    Else

       Result := Value;



End;

:shock:

[ramin_rp]

:oops:

[SherlookHolms]

behtarin kar in hast ke adadd ro be reshte e bargardoni va baad akharin karacter ro bardari, va avalin ro , albate e age faghat ino mikhayee , valee age e hame e ro mikhaee ye reshte e dige e begir va shor kon az akhar por kardan ke tatib ro avaz koni

[SReza1]

البته یادم رفت بگم که یک listbox و یک دکمه هم روی فرم بندازی!! :lol: :D

[ramin_rp]

خیلی ممنون!!! :mrgreen: