Re: [DUG] Multiple "FOR" loops

Fri, 19 Mar 2004 21:18:20 -0800

Title: Message
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 -----
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

Reply via email to