Need Help With 'BY'

Article View: comp.lang.modula2

Article #1679

#1679

From: Dave Mueller
Date: Thu, 03 Jan 1991 16:27

23 lines
846 bytes

I'm trying to write a FOR loop that needs a 'nonconstant' BY, for example:

IF Case = 1 THEN
   Begin := 0;
   End := Length(Line)-1;
   By := 1;
ELSE
   Begin := Length(Line)-1;
   End := 0;
   By := -1;
END;

FOR Loop := Begin TO End BY By DO
etc..


Any suggestions as to how I go about doing this in a FOR Loop???  Or am I gonna
end up doing it some other way??

Thanx much!

Dave Mueller

Technical Details

Message-ID: <91003.102704BJ020000@NDSUVM1.BITNET>

Path:

arc1-ca.pugleaf.net!utzoo!censor!geac!torsqnt!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!julius.cs.uiuc.edu!psuvax1!psuvm!cunyvm!ndsuvm1!bj020000

Show Full Headers

Complete Article Headers

Path: arc1-ca.pugleaf.net!utzoo!censor!geac!torsqnt!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!julius.cs.uiuc.edu!psuvax1!psuvm!cunyvm!ndsuvm1!bj020000
From: BJ020000@NDSUVM1.BITNET (Dave Mueller)
Newsgroups: comp.lang.modula2
Subject: Need Help With 'BY'
Message-ID: <91003.102704BJ020000@NDSUVM1.BITNET>
Date: 3 Jan 91 16:27:04 GMT
Organization: North Dakota Higher Education Computer Network
Lines: 23