View Full Version : اعداد
ramin_rp
چهارشنبه 23 مهر 1382, 15:02 عصر
سلام
برنامه ای داریم که عدادی را چاپ خواهد کرد میخوام وقتی مثلا با حالت 123456برخرد کرد
بنویسه 1..6با چه کدی می تونم این کار راانجام دهم؟
:oops:
SReza1
چهارشنبه 23 مهر 1382, 23:31 عصر
من اگه درست متوجه شده باشم میتونی اون عدد رو داخل یک متغیر بریزی و اگه مستوی شد اون کاری رو که م خواهی بکن
مثلا
var X : Integer
if X = 123456 Then
.............
والا دیگه چی بگم!!
ramin_rp
چهارشنبه 23 مهر 1382, 23:59 عصر
هر چی دوست داری
دوست عزیز این برنامه حدود 100عدد خروجی خواهد داشت!
SReza1
پنج شنبه 24 مهر 1382, 14: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, 17:07 عصر
:oops:
SherlookHolms
پنج شنبه 24 مهر 1382, 20: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, 23:49 عصر
البته یادم رفت بگم که یک listbox و یک دکمه هم روی فرم بندازی!! :lol: :D
ramin_rp
جمعه 25 مهر 1382, 13:20 عصر
خیلی ممنون!!! :mrgreen:
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.