FastReport Dinamik Sayıya Göre Etiket Bastırma [ÇÖZÜLDÜ]

[bünyamin68]

procedure TForm4.Button1Click(Sender: TObject);
var
 i: Integer;
 TEmpList: TClientDataSet;
begin
 if Assigned(TempList) then
 begin
   TempList.EmptyDataSet;
 end
 else
 begin
   TempList := TClientDataSet.Create(nil);
   TempList.FieldDefs.Add('URUN_ADI', ftString, 100);
   TempList.FieldDefs.Add('KAREKOD', ftString, 100);
   TempList.FieldDefs.Add('SATIR1', ftString, 100);
   TempList.FieldDefs.Add('SATIR2', ftString, 100);
   TempList.FieldDefs.Add('SATIR3', ftString, 100);
   TempList.FieldDefs.Add('SATIR4', ftString, 100);
   TempList.FieldDefs.Add('SATIR5', ftString, 100);
   TempList.FieldDefs.Add('BARKOD_SAYISI', ftInteger);
   TempList.CreateDataSet;
 end;

 
 fdquery1.First;
 while not fdquery1.Eof do
 begin
   for i := 1 to fdquery1.FieldByName('BARKOD_SAYISI').AsInteger do
   begin
     TempList.Append;
     TempList.FieldByName('URUN_ADI').AsString := fdquery1.FieldByName('URUN_ADI').AsString;
     TempList.FieldByName('KAREKOD').AsString :=  fdquery1.FieldByName('KAREKOD').AsString;
     TempList.FieldByName('SATIR1').AsString := fdquery1.FieldByName('SATIR1').AsString;
     TempList.FieldByName('SATIR2').AsString := fdquery1.FieldByName('SATIR2').AsString;
     TempList.FieldByName('SATIR3').AsString := fdquery1.FieldByName('SATIR3').AsString;
     TempList.FieldByName('SATIR4').AsString := fdquery1.FieldByName('SATIR4').AsString;
     TempList.FieldByName('SATIR5').AsString := fdquery1.FieldByName('SATIR5').AsString;
     TempList.FieldByName('BARKOD_SAYISI').AsInteger := i;
     TempList.Post;
   end;
  fdquery1.Next;
 end;

FRXREPORT1.ShowReport;
 frxDBDataset1.DataSet := TempList;
end;

Arkadaşlar çok şükür sonunda doğru kodu oluşturabildim. Geçici tablo oluşturarak bu tabloya FDQUERY de bulunan BARKOD_SAYISI alanına girilen adet kadar veriyi çektim sonra fastreportün datasetine bu geçici tabloyu bağladım.Umarım sizlerinde işine yarar konu için çaba gösteren herkese teşekkürler.