Zitat von
Circle:
Delphi-Quellcode:
for i := 1 to 12 do begin
if Form1.CBuff[i].Enabled = True then begin
Form1.TBuff[i].Intervall = StrToInt(Form1.SBuff[i].Text) * 1000;
Dazu fallen mir noch 2 Sachen auf:
- Lass das Form1 weg, wenn du dich innerhalb der TForm1 Klasse bewegst. Es sieht zumindest danach aus, dass du das machst. Mit Form1 greifst du explizit auf eine Instanz von TForm1 zu. Wenn du irgendwann eine 2. Instanz von TForm1 erstellst (z.B. Form1Ex), dann greift dein Code auf die falsche Instanz zu
- TBuff ist eine schlecht Namensgebung für eine Komponente (sieht mir nach einem Timer aus bei dir). Unter Delphi gibt es die Konvention, dass Klassendeklarationen und Typen ganz allgemein mit einem T als Präfix geschrieben werden. Wenn deine Variable jetzt TBuff heisst, ist das nur irritierend.