Как сохранить все результаты в текстовом файле в Nav? - PullRequest
0 голосов
/ 07 октября 2019

У меня есть таблица записи в книгу, и я зацикливаюсь на ней, чтобы найти пробелы, затем сохраню их в file.txt, но он работает только с последним пробелом. Как я могу сохранить все результаты в моем файле?

IF LibraryLedgerEntry.FINDLAST THEN
  LastEntryNo := LibraryLedgerEntry."Entry No.";
  IF LastEntryNo <> 0 THEN BEGIN
    FOR i := 1 TO LastEntryNo DO BEGIN
      LibraryLedgerEntry.RESET;
      LibraryLedgerEntry.SETRANGE("Entry No.",i);
    IF NOT LibraryLedgerEntry.FINDFIRST THEN BEGIN
      REPEAT                    
        MyFile.CREATE('C:\MyNewFolder\MyWriteText.txt');
        MyFile.CREATEOUTSTREAM(OutStreamObj);            
        OutStreamObj.WRITETEXT(FORMAT(i));
        OutStreamObj.WRITETEXT();
      UNTIL LibraryLedgerEntry.NEXT = 0 ;
      MyFile.CLOSE;
    END;
  END;
END;
...