Miscellany

public text v1 · immutable

#39503

·published 2006-02-01 18:37 UTC

procedure TFormBooking.FormCreate(Sender: TObject);
var
x: integer;
begin
  IF not FILEEXISTS('bookings.txt') THEN
    CreateBookingsFile;
  Loadfromfile;
  Mcomments.Text:='';

  SGone.RowCount:=52;
  SGone.Cells[0,0]:='Weeks';
  FOR x:=1 TO size do
  BEGIN
  pos:=0;
  pos:=pos+1;
    SGone.Cells[1,x]:=inttostr(bookinglist[pos].weekno);
  END;
end;