BigText problem

lubost
lubost Member Posts: 633
edited 2009-01-08 in NAV/Navision Classic Client
Hi, guys,

I have problem with following code:

CLEAR(BigTxt);
CALCFIELDS(Question);
Rec.Question.CREATEINSTREAM(FileInStr);
WHILE NOT (FileInStr.EOS()) DO BEGIN
FileInStr.READTEXT(TempTxt);
BigTxt.ADDTEXT(TempTxt);
END;
DescFile.WRITEMODE := TRUE;
DescFile.TEXTMODE := TRUE;
DescFile.CREATETEMPFILE;
DescFile.CREATEOUTSTREAM(FileOutStr);
BigTxt.WRITE(FileOutStr);
DescFile.CLOSE;

and file is empty. TempTxt variable *standard Text 1024 characters long is during execution filled with text...
What's wrong?

Comments

  • kriki
    kriki Member, Moderator Posts: 9,132
    How about this:
    CLEAR(BigTxt);
rec.CALCFIELDS(Question);
recTheRec.Question.EXPORT('c:\temp\x.txt',false);
    Regards,Alain Krikilion
    No PM,please use the forum. || May the <SOLVED>-attribute be in your title!

Categories