[DelphiDoc-News] (no subject)

[vaa20003 <vaa...@ya...>]

Delphi 7

Has disconnected check @ - beginning to compile further but

var       Positions      :PPoint;        //the positions of all files (boxes)
          Files          :^TPascalFile;  //the list of all written files
          NextUnit       :TPoint;        //position of the next file to write


 {Draws a file at the current position and moves the pointer for the next one.
 ~param Index          index in the list of files
 ~param CountPerColumn number of files in a column; 0: as many as fit }
 procedure DrawFile(Index: Cardinal; CountPerColumn: Cardinal = 0);
 var       FileP      :^TPascalFile;     //entry in list of written files
           PositionP  :PPoint;           //entry in list of positions of files
 begin
  PositionP := Positions;
  inc(PositionP, Index);
  if PositionP.x = -1 then               //file not yet written?
   begin
    FileP := Files; - write thet incompatibile type
   
   I do not understand!

Best regard
Alex.

vaa...@ya...