Ad:

Pascal and Delphi Discussion Thread
Unsolved
Views: 8296

Feb 9th, 2009

Lost Again...Step Increment

Expand Post »

I Was Just Wondering is Ther Anyway At All
To Reproduce A VB Step Increment in Delphi.

VB Example:
for i = 0 to 100 step 10

Delphi: ???

Any Help Would Be A Blessing

Thanks,
gh0sts

Similar Threads

Pointers (archived tutorial) in C++
Suggests and solution to Histogram program problem please in C++

gh0sts416

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since May 2008

Permalink

Feb 9th, 2009

Re: Lost Again...Step Increment

I Got It Figured Out

But Any Feed Back Would Still Be Appreciated.

gh0sts416

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

5 posts
since May 2008

Permalink

Feb 9th, 2009

Re: Lost Again...Step Increment

Step is something that delphi kinda overlooked.

Easiest answer is a while loop.

LizR

Reputation Points: 196

Solved Threads: 190

Posting Virtuoso

Offline

1,735 posts
since Aug 2008

Permalink

Mar 1st, 2009

Re: Lost Again...Step Increment

pascal Syntax (Toggle Plain Text)
Program increment_for;
Uses Crt;
Var i:Byte;
 
Begin
 ClrScr;
 For i:=0 To 100 Do
 Begin
  If i>=100 Then Break;
  Inc(i,20);                                   {increment i with 20}
  Write(i, '  ');
  Dec(i);                                       {decrement i with 1}
 End;
 
Repeat
Until KeyPressed;
End.
Program increment_for;
Uses Crt;
Var i:Byte;

Begin
 ClrScr;
 For i:=0 To 100 Do
 Begin
  If i>=100 Then Break;
  Inc(i,20);                                   {increment i with 20}
  Write(i, '  ');
  Dec(i);                                       {decrement i with 1}
 End;

Repeat
Until KeyPressed;
End.

In the turbo pascal there is a function called INC(number,increment) and I think that the pascal was the base of the delphi

Last edited by FlamingClaw; Mar 1st, 2009 at 5:20 am.

FlamingClaw

Reputation Points: 132

Solved Threads: 138

Posting Pro

Offline

559 posts
since Feb 2009

Permalink

Mar 1st, 2009

Re: Lost Again...Step Increment

most languages dont like you messing with the itterator. You would do better to use a while loop.

LizR

Reputation Points: 196

Solved Threads: 190

Posting Virtuoso

Offline

1,735 posts
since Aug 2008

Permalink

Mar 2nd, 2009

Re: Lost Again...Step Increment

I think you're right,the

PASCAL Syntax (Toggle Plain Text)

While..Do

or the

pascal Syntax (Toggle Plain Text)

Repeat..Until

can be the right way,'cause these statements are used for that....the point is yours...
With respect FlamingClaw

Last edited by FlamingClaw; Mar 2nd, 2009 at 2:32 am.

FlamingClaw

Reputation Points: 132

Solved Threads: 138

Posting Pro

Offline

559 posts
since Feb 2009

Permalink

Mar 29th, 2009

Re: Lost Again...Step Increment

Ok,I know that this thread is not fresh but I have an idea,and working!

pascal Syntax (Toggle Plain Text)
{
Question
Increment for loop
}
Program Program01;
 
var i:Byte;
 
Begin {main}
   For i:=1 To 100 Do
     Begin
       i:=i+9;  {will step 10}
       Write(i,' ');
     End;
   ReadLn;
End.
 
{
-= Note By FlamingClaw =-
 
All programs created by me  are written and tested
in Dev Pascal and/or Turbo Pascal 7.0
 
-= Created By FlamingClaw =-
-=2009.03.29=-
}
{
Question
Increment for loop
}
Program Program01;

var i:Byte;

Begin {main}
   For i:=1 To 100 Do
     Begin
       i:=i+9;  {will step 10}
       Write(i,' ');
     End;
   ReadLn;
End.

{
-= Note By FlamingClaw =-

All programs created by me  are written and tested
in Dev Pascal and/or Turbo Pascal 7.0

-= Created By FlamingClaw =-
-=2009.03.29=-
}

FlamingClaw

Reputation Points: 132

Solved Threads: 138

Posting Pro

Offline

559 posts
since Feb 2009

Permalink

Mar 30th, 2009

Re: Lost Again...Step Increment

FlamingClaw,
Two thoughts on your example:

1.) i := i + 9; // does not increment by 10
2.) Using the For statement could easily lead to an error in a large body of code. Imagine coming back to this a year from with no memery of the logic. You would see the For statement and assume an increment of 1 with the For statement controling the i variable. It would be better to use a With or Repeat statement because you would still seek out the increment line to evaluate the step size.

Last edited by jsosnowski; Mar 30th, 2009 at 10:08 am.

jsosnowski

Reputation Points: 11

Solved Threads: 11

Junior Poster in Training

Offline

68 posts
since Nov 2007

Permalink

Mar 30th, 2009

Re: Lost Again...Step Increment

try it and you'll see that i:=i+9 will every round 10,cause when run this example you will see that every round value of i will increasing by 1....therefor nedd i:=i+9

FlamingClaw

Reputation Points: 132

Solved Threads: 138

Posting Pro

Offline

559 posts
since Feb 2009

Permalink

Mar 30th, 2009

Re: Lost Again...Step Increment

FlamingClaw,

My bad, you are right.

However, overiding the automatic increment still looks like a bad practice.

Last edited by jsosnowski; Mar 30th, 2009 at 12:47 pm.

jsosnowski

Reputation Points: 11

Solved Threads: 11

Junior Poster in Training

Offline

68 posts
since Nov 2007

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Pascal and Delphi Forum Timeline: Please express it to me.

Next Thread in Pascal and Delphi Forum Timeline: Pascal code doesnt work and i work out why

DaniWeb Message

Cancel Changes

User Name
Password