Table example: Variable data
Tab(Xpos,Ypos:number;Htabs:list;Vspace:number):tableHandle;
OpenFile(Name:string):fileHandle
ReadCSV(var Handle:fileHandle;var Lx:list;[Separator:string[1]]);
You need a separate CSV file to supply the data for this RS/2 file.
paper('a1',false); begin // first page only csv_buffer:=[]; orient('L'); // display headings on every page text(200,200,Filename); for i:=0 to pred(length(headings)) do tab_cell(tx,list_strings(headings,i)); tab_nextrow(tx,true); readcsv(fx,CSV_BUFFER); if eof(fx) then halt(1); |