Problem bei case // Problem bei Komponenten löschen

[Metallicwar]

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 -.-

[stahli]

Du musst auf die Begin-End´s achten!

Delphi-Quellcode:

if x then
  MacheWas;
MacheDasNaechste;

Delphi-Quellcode:

if x then
begin
  MacheWas;
  MacheNochWas;
end;
MacheDasNaechste;

Wenn Du die Blöcke und Anweisungen "schön" einrückst und IN RUHE untersuchst, solltest Du wohl eine falsche begin-end Anweisung finden.

In meinem Beispiel oben sieht man auf einen Blick, dass die erste if-Bedingung nur einen Befehl betrifft und die zweite einen Block.

Ich denke, Du warst da in Deinem Code nur etwas zu schlampig.

Ordner das mal und zeig es uns dann notfalls nochmal ...