15-03-2016, 10:29 AM
كود :
var
X, Y, i : integer ;
begin
X := StrToIntDef(MaskEdit1.Text,12);
Y := StrToIntDef(MaskEdit2.Text,12);
if X <= Y Then
For i:= X To Y Do
Memo1.Lines.Add(IntToStr(i))
Else
For i:= X DownTo Y Do
Memo1.Lines.Add(IntToStr(i));
end;
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم