Das von mir vorher geschriebene war etwas entstellt. Zumindest geht damit nichts mit C+P und nur Bezeichner ändern.
Das hier :
Delphi-Quellcode:
procedure TForm1.Lade (Nr : integer);
var bstr : string;
begin
try
bstr := (Liste.Items [Nr] as Tbstr).bstr;
qrPreview.Show;
qr1.Prepare;
qr1.QRPrinter.Load(bstr);
qr1.QRPrinter.Preview;
finally
QRPrinter.Free;
end;
lief 5000 mal bis zum Abbruch.
@Obama : drücke mal so ca. 5mal auf den Button.
