Forum: Sonstige Fragen zu Delphi
Delphi
by Mumpe,
24. Nov 2006
Eine Sache fällt mir auf.
Du müsstest die Zeile while c3 < 29 do begin in while c3 <= 29 do begin ändern, da die Schleife sonst die CheckBox29 nicht erreichen würde.
Forum: Sonstige Fragen zu Delphi
Delphi
by Mumpe,
24. Nov 2006
:mrgreen: Ein wahres Wort gelassen ausgesprochen.
Forum: Sonstige Fragen zu Delphi
Delphi
by Mumpe,
24. Nov 2006
Das bezieht sich auf Dein c3:=0;
Änder mal den Namen der Variablen "comp" in "compo", vielleicht kollidiert das "comp" mit der Typenbezeichnung.
Forum: Sonstige Fragen zu Delphi
Delphi
by Mumpe,
24. Nov 2006
Wow, schwere Geburt. :roll:
Was shmia meint, sieht im Endeffekt dann so aus:
procedure TForm1.wasweissich;
var
comp : TComponent;
cb : TCheckbox;
c3 : integer;
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Mumpe,
24. Nov 2006
Hast Du denn wirklich alle Checkboxen richtig benannt?
Du kannst Deinen Code vielleicht auch so ändern, dass Du zunächst mal prüfst, ob die Checkbox des gesuchten Namens überhaupt vorhanden ist:
while c3 < 29 do begin
Inc(c3);
if FindComponent('CheckBox' + IntToStr(c3))<>nil then begin
if TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Checked = true then begin
if...