Table of Content
HAL Forum
VOID SetLoopPosition (
record LoopRecord,integer LoopPosition)
Description:
Sets the LoopRecord loop position for any looping function (ex. LoopMain) to a certain point.
Parameters:
LoopRecord The record that is being looped through either with LoopMain, LoopKey, etc. Starts from 0.
LoopPosition An integer value that represents the new loop position for the LoopRecord.
procedure ExpSIEDim()
BEGIN
  record OTVc OTr;
  Boolean found;
  Integer nr;

  SetLoopPosition(OTr,0);
  found = true;
  while (LoopMain(OTr,1,found)) begin
    ExportString("#DIM");
    nr = GetDimNr(OTr.Code);
    ExportString(nr);
    ExpSIEpString3(OTr.Comment,255);
    ExportPadString(chr(13) & Chr(10),2,"",false);
  end;
  RETURN;
END;

Related topics:
««