-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
Ich kann leider nicht den Datenschutz verringern, da es einfach verboten ist. Es ist eine Schulklassenliste mit 29 Namen.
Ich kann ja mal die ganze Prozedur anhängen, vielleicht reicht das ja auch schon (mit den Variablen natürlich)
procedure TForm24.Button13Click(Sender: TObject);
var
compo: TComponent;
cb: TCheckBox;
c2: Integer;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
P.S: Es sind einige unendliche lange Absätze drin, da ich schon oft das Problem mit den Checkboxen hatte und deswegen sie nicht in eine Schleife gemacht hab.
Macht aber auf Dauer bischen zu viel Arbeit
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
OK
(Ohne .dfm und .dcu)
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
Ich hab' mal schrittweise gemacht. Aber inerhalb der Fehöer-Prozedur macht er plötzlich einen Sprung im Source als hätte ich einen Goto-Befehl eingesetzt.
Den ersten Teil der Schleife durchläuft er, den zweiten überspringt er irgendwie (Nur das Inc(c3))
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
Achso: Delphi sagt außerdem noch, dass
Wird es aber als Bedingung in der While-Schleife und als Counter.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
c3 := 0;
c3 := 1;
while c3 < 29 do begin
comp := (FindComponent('CheckBox' + IntToStr(c3)) as TCheckbox);
if Assigned(comp) then
begin
cb := comp as TCheckbox; // <--
if cb.CHecked = true then
a.Add(cb.Caption + ' hat abgegeben!')
else
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
Also ich bin mir schon mal sicher dass sie existieren. Ich hab sie alle
CheckBox(+X)
genannt.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
Boa, ich nehm zurück dass ich nicht blöd bin...
Ist wahrscheinlich irgendwie ne' Systemvariable oder sowas...
Jetzt geht'ts. Aber ne' Zugriffsverletzung kommt trotzdem noch...
@Balu der Bär
Ich lese deins natürlich auch. Aber es hat halt nicht funktioniert, wegen diesem Abschreibfehler...
Danke! :-D
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
Manno, funzt immer noch nicht! :(
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
So dumm bin ich dann doch wieder nicht.
Ja, es gibt immer noch Fehler.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
Ich meine nicht, dass er nicht das gewünschte Ergebnis liefert sondern das diese Fehler auftreten
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
24. Nov 2006
Der Quellcode da liefert aber auch nicht das wahre: Delphi meint, dass
comp := FindComponent('CheckBox' + IntToStr(c3));
gefälligst mit einer Klammer statt ':=' (Zuweisungsoperator) geschrieben werden soll.
Assigned(comp)
liefert auch einen Fehler (nein, nein, es liegt nicht am fehlenden Semikolon).
Bei 'as' gibts auch ein Fehler.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
23. Nov 2006
Noch nicht richtig was von debuggen gehört.
Is irgendwie noobig, kann ich mir gut vorstellen.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
23. Nov 2006
nich richtig
ich hab c3 nicht in der Prozedur deklariert. Auf 0 gesetzt hab ichs aber.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
23. Nov 2006
Hi
Ich hab das so angewendet:
while c3 < 29 do begin
Inc(c3);
if TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Checked = true then begin
if durckm.ItemIndex = 1 then
a.Add(TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Caption + ' hat abgeben!') else
Memo1.Lines.Add(TCheckbox(FindComponent('CheckBox' + IntToStr(c3))).Caption + ' hat abgegeben!');
end else begin
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
6. Nov 2006
Danke, es funzt!
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
6. Nov 2006
if FindComponent('CheckBox' + IntToStr(c1)).Checked = true then
...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
6. Nov 2006
Das hab' ich schon probiert. Aber Delphi meint, dass die Eigenschaft 'Checked' undefiniert sei.
-
Forum: Sonstige Fragen zu Delphi
Delphi
by Tumm,
6. Nov 2006
Hi
Ich habe ein Programm geschrieben, in dem 29 Checkboxen sind. Wie kann ich (anhand eines Integers) alle CheckBoxen mit dem gleichen Boolean-Wert zählen? :?:
Beispiel: Alle Checkboxen zählen, die auf 'False' gesetzt sind.
Tumm