Good Morning! Coolness! Thanks Thomas. I will give this a try.
Cya...Dan'l --- "Nesler, Thomas J" <[EMAIL PROTECTED]> wrote: > Hi Dan! > -----Original Message----- > From: [email protected] > [mailto:[EMAIL PROTECTED] On > Behalf Of GreatDayDan > I am using D5 EE, but I do not know how to send > data from an array to a QR. Do you? Any examples? > >>>>>>>>>>>>>> > Use the OnNeedData event of the Qreport. You don't > have a dataset to > work with so leave that property blank. In the > code, keep track of > where you are in your array and place the data in > QRLabel fields. > > For example: > > Procedure Tform1.QuickRep1NeedData(Sender : Tobject; > Var > MoreData : Boolean); > Var > I : Integer //Counter; > Str : String; // Hold Text temporarily > Begin > MoreData := False; > If Startup = True then > Begin > {Handle any first time printing stuff} > Startup := False; //Turn off this routine after > the first time > End; > {Put your routine to insert data into labels here} > Str := Array[0] > For I := 1 to 19 do > Begin > Str := Str + ' | ' + Array[I]; > End; > QrLabel1.Text := Str; > Moredata := True; //Turn on printer for another > label > End; > > > ____________________________________ Every day is a Great day, but some days are GREATER than others! __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/delphi-en/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
