Delphi-Quellcode:
for ichecked := 0 to CheckListBox1.Items.Count-1 do
begin
if CheckListBox1.Checked[ichecked] then
iErstellteFrames := iErstellteFrames + 1;
end;
begin
if iGecheckteFrames = iErstellteFrames then
Er steppt alle Items durch und wenn eins gecheckt ist dann soll er iErstellteFrames eins hochzählen. So ist es ja richtig.
Dann durchläuft er die if/else Abfragen. Beim ersten mal ist der zaehler ja 0 daher springt er in:
Delphi-Quellcode:
if iZaehler = 0 then
begin
Frames := TFrame4.Create(Self);
L.Add(Frames);
Frames.ClientHeight := 200;
Frames.Name:='';
Frames.Top := iY;
Frames.Parent := Formular;
iZaehler := iZaehler + 1;
iGecheckteframes := iGecheckteframes + 1;
if iGecheckteFrames = iErstellteFrames then
begin
ShowMessage('Zwischenablage drucken und aktuelle Form drucken');
end;
durchläuft die Anweisungen und bei
if iGecheckteFrames = iErstellteFrames
springt er dann runter zu
Delphi-Quellcode:
...
end;
Formular.Show;
end;
also ich weiß da nicht mehr weiter -.-