RE: [DUG] Multiple "FOR" loops

Jeremy Coulter Fri, 19 Mar 2004 21:34:02 -0800

Title: Message

thats a DAMN good idea ! I shall try that !

My other problem, that I didnt mention is that I ALSO want to go from the Middle to the end or the Middle to the begining, but this idea will cover that fine I think.

Jeremy

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Trevor Jones
Sent: Saturday, 20 March 2004 06:14
To: NZ Borland Developers Group - Delphi List
Subject: Re: [DUG] Multiple "FOR" loops

Jeremy,

unless I am very badly mistaken, this looks like a job for a language feature which AFAIK only exists in Pascal: nested procedures/functions.

e.g.

procedure DoStuff(Direction : TUpDown; const Lower, Upper : integer)

procedure ReallyDoStuff(x : integer);

    begin

      Do Things with element X to suit Jeremy

    end;

var

x : integer;

begin

  if Direction = Up then

    for x := Lower to Upper do

      ReallyDoStuf(x)

else

    for x := Upper downto Lower do

      ReallyDoStuff(x);

end

----- Original Message -----

From: Jeremy Coulter

To: [EMAIL PROTECTED]

Sent: Saturday, March 20, 2004 5:42 PM

Subject: [DUG] Multiple "FOR" loops

Hi All.

I want to be able to specify the direction of a FOR loop.

i.e. if the type is FirstToLast then it will be for x:=0 to 100

i.e. if the type is LastToFirst then it will be for x:=100 downto 0

Basically I want to be able to go :-

CASE Direction of

    0: for x:=0 to 100

    1: for x:=100 to 0

END;

Begin

//for loop stuff here

End;

But of course this is not valid.

I then thought I should use a WHILE LOOP but the problem here is that even if I define the start and stop positions, it doesnt really herlp, i.e.

While iStartPos <= iStopPos do

IF iStop=100 and iStart=1 its fine, BUT if iStop is 1 and iStart=100 then it will not work.

Anyone got any bright ideas? I REALLY dont want to make 2 "FOR" loops.

Cheers,

Jeremy Coulter

------------------------------------------------------------------------

All email scanned with Nortons Antivirus 2003

------------------------------------------------------------------------

_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi

_______________________________________________
Delphi mailing list
[EMAIL PROTECTED]
http://ns3.123.co.nz/mailman/listinfo/delphi

RE: [DUG] Multiple "FOR" loops

Reply via email to