Ohhh man, wer suche der findet.. Ich nicht^^
Habs bestimmt mal wieder in die falsche Zeile geschrieben
Delphi-Quellcode:
procedure TForm1.BitBtnDruckenClick(Sender: TObject);
var
iChecked, iGesamt, iZaehler, iGecheckteItems, iY, iRunter, iErstellteFrames, i: Integer; // hier schon einrücken
begin
Formular := TForm.Create(Self);
Formular.ClientHeight := 2000;
Formular.ClientWidth := 900;
L := TComponentList.Create;
L.OwnsObjects := False;
iGecheckteItems := 0;
iErstellteFrames := 0;
iGesamt := 0;
iY := 0;
iRunter := 0;
iZaehler := 0;
Form1.AdsQuery.First;
for iChecked := 0 to CheckListBox1.Items.Count - 1 do
begin
if CheckListBox1.Checked[iChecked] then
iGesamt := iGesamt + 1;
end;
for iGecheckteItems := 0 to CheckListBox1.Items.Count - 1 do
begin
if CheckListBox1.Checked[iGecheckteItems] then
begin
if iZaehler < 10 then
begin
Frames := TFrame4.Create(Self);
L.Add(Frames);
Frames.ClientHeight := 200;
Frames.Name:='';
iZaehler := iZaehler + 1;
iErstellteFrames := iErstellteFrames + 1;
Frames.Parent := Formular;4
Form1.AdsQuery1.RecNo := ichecked + 1;
......
und unten eben dieses Form1.AdsQuer1.Next rausgenommen.
Habe jetzte nur noch AdsQuery1.First und RecNo in Verwendung. Jetzte wird mir aber nur der erste Datensatz angezeigt vorher wars eben der letzte jeztte ist es der Erste.