QRAsBarcode1 bileşeni

[bimsamsy]

100 tane QRAsBarcode bileşenim var.

QRAsBarcode1 QRAsBarcode2 ....QRAsBarcode99 QRAsBarcode100

100 adet barkod hazırlayacağım

for i:=1 to 100 do
begin

QRAsBarcode(i) = sqlpersonelsicil.text;

end;

fakat burda QRAsBarcode(i) i nasıl yazman gerekir.

QRAsBarcode(i) = sqlpersonelsicil.text; nasıl yazman gerekir.

[Merchant]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 100 do
begin
QRAsBarcode(Components[i]) = sqlpersonelsicil.text; 
end;
end;

İyi Forumlar.