Problem bei case // Problem bei Komponenten löschen

[Metallicwar]

Delphi-Quellcode:

procedure TForm1.bitbtnDruckenClick(Sender: TObject);
var
iChecked, iZaehler, iGecheckteFrames, iY, iRunter, iErstellteFrames, i: Integer;
begin
  Formular:=TForm.Create(Self);
  Formular.ClientHeight := 1500;
  Formular.ClientWidth := 670;
  l:=TComponentList.Create;
  L.OwnsObjects:= False;
  iGecheckteFrames := 0;
  iErstellteFrames := 0;
  iY := 0;
  iRunter := 0;
  iZaehler := 0;
  for ichecked := 0 to CheckListBox1.Items.Count-1 do
    if CheckListBox1.Checked[ichecked] then
    begin
      case iZaehler of
          0..9:
          begin
          Frames := TFrame4.Create(Self);
          L.Add(Frames);
          Frames.ClientHeight := 200;
          Frames.Name:='';
          iZaehler := iZaehler + 1;
          iGecheckteframes := iGecheckteframes + 1;
          Frames.Parent := Formular;
          end;
      end;
          case iZaehler of
          10:
          begin
            for I := l.Count -1 downto 0 do
            begin
              Frames:= (L[i] as TFrame4);
              Frames.Free;
              iZaehler := 0;
            end;
            begin
            if iGecheckteFrames = 13 then
              ShowMessage('Formular in Zwischenablage kopieren + Formular leeren');
            end;
          end;
          0:
          begin
            Frames.Top := iY;
            if iGecheckteFrames = 13 then
            ShowMessage('Zwischenablage drucken + aktuelle Form leeren');
          end;          
          2..5:
          begin
            Frames.Top := iY + Frames.ClientHeight;
            iY := Frames.Top;
            Frames.Parent := Formular;
            if iGecheckteFrames = 13 then
            begin
              ShowMessage('Zwischenablage drucken + aktuelle Form drucken');
            end;
          end;
          6:
          begin
            Frames.ClientHeight := 200;
            Frames.Name:='';
            Frames.Left := 350;
          end;
          7..9:
          begin
            Frames.Left := 350;
            Frames.Top := iRunter + Frames.ClientHeight;
            iRunter:= Frames.Top;
            if iGecheckteFrames = 13 then
            begin
              ShowMessage('Zwischenablage drucken + aktuelle Form drucken');
            end;
          end;
        end;
    Formular.Show;
    end;
end;

So hoffe mal jetzte siehts alles bisschen übersichtlicher aus.

[stahli]

nein, nicht wirklich:

Delphi-Quellcode:

procedure TForm1.BitBtnDruckenClick(Sender: TObject);
var
  iChecked, iZaehler, iGecheckteFrames, iY, iRunter, iErstellteFrames, i: Integer; // hier schon einrücken
begin
  Formular := TForm.Create(Self); // Leerzeichen
  Formular.ClientHeight := 1500;
  Formular.ClientWidth := 670;
  L := TComponentList.Create; // Leerzeichen + Groß/Kleinschreibung
  L.OwnsObjects := False;
  iGecheckteFrames := 0;
  iErstellteFrames := 0;
  iY := 0;
  iRunter := 0;
  iZaehler := 0;
  for iChecked := 0 to CheckListBox1.Items.Count - 1 do
  begin // Was soll in der Schleife laufen? Bis incl. Formular.Show? Dann wird das Formular Items.Count mal angezeigt.
    if CheckListBox1.Checked[iChecked] then
    begin // alles folgende wird bei Checked durchgeführt, Formular.Show aber immer
      if iZaehler < 10 then
      begin
        Frames := TFrame4.Create(Self);
        L.Add(Frames);
        Frames.ClientHeight := 200;
        Frames.Name:='';
        iZaehler := iZaehler + 1;
        iGecheckteframes := iGecheckteframes + 1;
        Frames.Parent := Formular;
      end;
    //end; dieses End würde bedeuten dass die Checked-Bedingung nur bis hierher gelten würde
      case iZaehler of
        10: begin
              for I := l.Count -1 downto 0 do
              begin
                Frames:= (L[i] as TFrame4);
                Frames.Free;
                iZaehler := 0;
              end;
              //begin <- unnötig
              if iGecheckteFrames = 13 then
                ShowMessage('Formular in Zwischenablage kopieren + Formular leeren');
              //end; < unnötig
            end;
         0: begin
              Frames.Top := iY;
              if iGecheckteFrames = 13 then
                ShowMessage('Zwischenablage drucken + aktuelle Form leeren');
            end;
      2..5: begin
              Frames.Top := iY + Frames.ClientHeight;
              iY := Frames.Top;
              Frames.Parent := Formular;
              if iGecheckteFrames = 13 then
                ShowMessage('Zwischenablage drucken + aktuelle Form drucken');
            end;
         6: begin
              Frames.ClientHeight := 200;
              Frames.Name := '';
              Frames.Left := 350;
            end;
      7..9: begin
              Frames.Left := 350;
              Frames.Top := iRunter + Frames.ClientHeight;
              iRunter:= Frames.Top;
              if iGecheckteFrames = 13 then
                ShowMessage('Zwischenablage drucken + aktuelle Form drucken');
            end;
      end;
    end;
    Formular.Show;
  end;
end;

Soweit mal ungetestet auf die Schnelle.
Auf jeden Fall hat man jetzt die Chance, sich ungefähr zurecht zu finden.
Die Leerzeichen und Groß/Klein-Schreibung ist vielleicht etwas Krümelkackerei, man sollte sich das aber gleich so angewöhnen, da man so viel schneller mögliche Tippfehler findet.

Ich weiß aber ehrlich gesagt jetzt nicht genau, was Du genau erreichen willst bzw. wo etwas nun nicht wie erwartet klappt (Du hast da einfach schon zu viele Varianten beschrieben).

Also nun nochmal:
- ordne Deinen Quelltext
- setze einen Breakpoint und arbeite den Quelltext schrittweise ab
- stelle konkrete Fragen mit präziser Problembeschreibung (dann kommt man oft bei einer Problemformulierung schon selbst auf die Lösung - kannst Du mir glauben )

[Metallicwar]

Viele Vielen Dank.
Funktioniert zwar noch nicht so, wie ich mir es vorstelle, aber es nimmt Formen an.
Bisher habe ich nur getestet.
Mein eigentliches Ziel ist folgendes, ich lasse mir alle Mitarbeiter (Name, Vorname, Abteilung, Bild) in die CheckListBox schreiben. Von den gecheckten Items (Mitarbeitern) lasse ich mir anschließend Mitarbeiterausweise (Frames, auf dem Bild, Labels für Kontaktdaten, vermerkt sind) ausdrucken. Ist ja eigentlich schon "fast" fertig Die AdsQuery hab ich schon erstellt und den benötigten SQL geschrieben. Jetzte muss ich nur noch hinbekommen, dass er für jedes neu erstellte Frame, einen Datensatz weiterspringt, momentan wird nur ein und der selbe Mitarbeiter angezeigt.

[stahli]

Ok, alles klar

Der Weg ein Formuar anzuzeigen und auszudrucken, ist eigentlich nicht ganz optimal. Grundsätzlich kann man das besser über ein Report-Tool lösen, das also quasi ein Dokument mit Texten und Bildern erzeugt.

Aber mach das ruhig erst mal so fertig. Hauptsache, Du gehst die Sache strukturiert an. Dann wird das auch ...

[Metallicwar]

das mit den Report-Tools ist mir bewusst (z.B. Crystal Reports) aber ist denk ich mal ne gute Aufgabe für einen Newbie
Angenehmen Abend noch.