Pascal and Delphi

Lost Again...Step Increment

Please support our Pascal and Delphi advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: May 2008

Posts: 5

Reputation: gh0sts416 is an unknown quantity at this point

Solved Threads: 0

gh0sts416

Offline

Newbie Poster

Lost Again...Step Increment

Feb 9th, 2009

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

•

Join Date: May 2008

Posts: 5

Reputation: gh0sts416 is an unknown quantity at this point

Solved Threads: 0

gh0sts416

Offline

Newbie Poster

Re: Lost Again...Step Increment

Feb 9th, 2009

I Got It Figured Out

But Any Feed Back Would Still Be Appreciated.

•

Join Date: Aug 2008

Posts: 1,735

Reputation: LizR has a spectacular aura about

Solved Threads: 186

LizR

Offline

Posting Virtuoso

Re: Lost Again...Step Increment

Feb 9th, 2009

Step is something that delphi kinda overlooked.

Easiest answer is a while loop.

Did I just hear "You gotta help us, Doc. We've tried nothin' and we're all out of ideas" ? Is this you? Dont let this be you! I will put in as much effort as you seem to.

•

Join Date: Feb 2009

Posts: 470

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 113

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: Lost Again...Step Increment

Mar 1st, 2009

 Help with Code Tags 
 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.

•

Join Date: Aug 2008

Posts: 1,735

Reputation: LizR has a spectacular aura about

Solved Threads: 186

LizR

Offline

Posting Virtuoso

Re: Lost Again...Step Increment

Mar 1st, 2009

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

Did I just hear "You gotta help us, Doc. We've tried nothin' and we're all out of ideas" ? Is this you? Dont let this be you! I will put in as much effort as you seem to.

•

Join Date: Feb 2009

Posts: 470

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 113

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: Lost Again...Step Increment

Mar 2nd, 2009

I think you're right,the

Help with Code Tags

PASCAL Syntax (Toggle Plain Text)

While..Do

or the

Help with Code Tags

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.

•

Join Date: Feb 2009

Posts: 470

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 113

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: Lost Again...Step Increment

Mar 29th, 2009

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

 Help with Code Tags 
 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=-
}

Be a good part of the community.Don't be ungrateful.
If you ask something on the forum and you got the right answer then mark as solved!
If my opinion helped to you a lot then sometimes give reputation point to me.
I'm just a pascal programmer from Hungary.
Farewell...

•

Join Date: Nov 2007

Posts: 68

Reputation: jsosnowski is an unknown quantity at this point

Solved Threads: 11

jsosnowski jsosnowski is offline

Offline

Junior Poster in Training

Re: Lost Again...Step Increment

Mar 30th, 2009

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.

•

Join Date: Feb 2009

Posts: 470

Reputation: FlamingClaw will become famous soon enough

Solved Threads: 113

FlamingClaw FlamingClaw is offline

Offline

Posting Pro in Training

Re: Lost Again...Step Increment

Mar 30th, 2009

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