Little girl asking for help !!!!!! Dynamically create qrlabel problems, wait online ... urgent !!!

美德川裤子

I want to dynamically create qrlabel in quickrep, but it always makes mistakes, why ??
code show as below:
procedure TARPD00.QRBand4BeforePrint (Sender: TQRCustomBand;
  var PrintBand: Boolean);
var qrlabel: TQRLabel;
    i: integer;
begin
 for i: = 1 to 23 do
  begin
   if strtofloat (temp [i] [3])> 0 then
    begin
     qrlabel: = TQRLabel.Create (self);
     qrlabel.Parent: = ARPD00.QRBand4;
     qrlabel.Left: = 0;
     qrlabel.Top:=count;
     qrlabel.Height: = 17;
     qrlabel.AutoSize: = true;
     qrlabel.Caption: = temp [i] [2] + '' + temp [i] [3];
     count: = count + 20;
    end;
  end;
end;

72次灌水被抓

Can't see the problem, missing reference unit?

snoopyhai

qrlabel: = TQRLabel.Create (self);

Did the program finally release qrlabel?

chenruhai

QR label.free;

yourapy

Post error tips