New topic: Infinite Loop
<http://forums.realsoftware.com/viewtopic.php?t=29711> Page 1 of 1 [ 1 post ] Previous topic | Next topic Author Message shaggymac Post subject: Infinite LoopPosted: Mon Aug 24, 2009 8:09 am Joined: Fri Feb 29, 2008 5:25 pm Posts: 380 I can't understand why this code snippet will put me in an infinite loop. Code: Dim f As New FolderItem Dim count As Integer Dim counter As Integer Dim field As String Dim t As TextInputStream Dim readLine As String f = GetFolderItem("rb.data.csv") counter = 0 If f <> Nil Then If f.Exists Then t = f.OpenAsTextFile readLine = t.ReadLine count = CountFields(readLine, ",") Do AAMCList.AddRow "" For counter = 0 To count field = NthField(readLine, ",", 1) Listbox1.Cell(Listbox1.LastIndex, 0) = field Next Loop Until t.EOF End If End If _________________ http://www.oneoranephone.com Free calls to USA & Canada Free calls to Europe or Asia Free calls to Puerto Rico Plans starting at $14.95 http://www.mupromo.com/?ref=4850 Today's MacUpdate Promo, 40% off Top Display posts from previous: All posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost timeSubject AscendingDescending Page 1 of 1 [ 1 post ] -- Over 1500 classes with 29000 functions in one REALbasic plug-in collection. The Monkeybread Software Realbasic Plugin v9.3. http://www.monkeybreadsoftware.de/realbasic/plugins.shtml [email protected]
