PDA

View Full Version : اعداد



ramin_rp
چهارشنبه 23 مهر 1382, 14:02 عصر
سلام
برنامه ای داریم که عدادی را چاپ خواهد کرد میخوام وقتی مثلا با حالت 123456برخرد کرد
بنویسه 1..6با چه کدی می تونم این کار راانجام دهم؟
:oops:

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

ramin_rp
چهارشنبه 23 مهر 1382, 22:59 عصر
هر چی دوست داری
دوست عزیز این برنامه حدود 100عدد خروجی خواهد داشت!

SReza1
پنج شنبه 24 مهر 1382, 13:53 عصر
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
پنج شنبه 24 مهر 1382, 16:07 عصر
:oops:

SherlookHolms
پنج شنبه 24 مهر 1382, 19:32 عصر
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
پنج شنبه 24 مهر 1382, 22:49 عصر
البته یادم رفت بگم که یک listbox و یک دکمه هم روی فرم بندازی!! :lol: :D

ramin_rp
جمعه 25 مهر 1382, 12:20 عصر
خیلی ممنون!!! :mrgreen: