forum.clarionlife.net

Код: Выделить всё

SET(db)
LOOP UNTIL EOF(db)
	NEXT(db); IF ERRORCODE()<>0 THEN BREAK.
END

Код: Выделить всё

Loc:SaveState  ushort

  Code
  
  Set(MyFile)
  Loop until Access:MyFile.Next()
     Loc:SaveState = Access:MyFile.SaveFile()
     
     Clear(MyFile.Record)
     MyFile.ID = ...  ! Считываем произвольную запись в файле
     If ~Access:MyFile.Fetch(MyFile.ByID) 
        ... ! Получаем данные, вносим изменения 
        If Access:MyFile.UpDate() then Break. ! Если были изменения сохраняем
     end
     
     Access:MyFile.RestoreFile(Loc:SaveState)
     
     ! и дальше обрабатываем данные в обычном порядке Loop until Access:MyFile.Next()
  end

Код: Выделить всё

Q1	QUEUE
F1		STRING(20)
	END
	! Q2 точно такая же очередь, что и Q1
Q2	QUEUE(Q1)
	END

Код: Выделить всё

SavePos String(1024) 

Loop 
    .... 
    ! Сохраняем позицию по ключу 
    SavePos = Position(Key)
    .... 
    !Делаем  что хотим 
    ... 
    ! Восстанавливаем позицию и ползём дальше 
    Reset(key,SavePos) 
    Next(File) 
End