15-03-2016, 10:49 AM
كود :
var
i :Integer;
X, Y : int64 ;
begin
X := StrToInt64(MaskEdit1.Text);
Y := StrToInt64(MaskEdit2.Text);
i:= X- Y;
Memo1.Clear;
if i < 0 Then
For i:= 0 To Abs(i) Do
Memo1.Lines.Add(IntToStr(X+i))
Else
For i:= i DownTo 0 Do
Memo1.Lines.Add(IntToStr(X-i));
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ