Ich hab hir nochmal einen Quelltext erstellt sagt mir mal was daran jetzt falsch ist.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var b:byte; i:integer;
begin
Timer1.Interval := StrToInt(Edg.Text);
Timer2.Interval := StrToInt(Edr.Text);
Timer3.Interval := StrToInt(Edl.Text);
Timer4.Interval := StrToInt(Edrw.Text);
Timer1.Enabled:=True;
for i:=1 to StrToInt(Edg.Text) do
begin
cbData1.checked:=true;
cbStrobe.checked:=false;
Timer1.Enabled:=false;
end;
for i:=1 to StrToInt(Edr.Text) do
begin
Timer2.Enabled:=true;
cbData5.checked:=false;
cbStrobe.checked:=false;
Timer2.Enabled:=false;
end;
for i:=1 to StrToInt(Edl.Text) do
begin
Timer3.Enabled:=true;
cbData7.checked:=false;
cbStrobe.checked:=false;
Timer3.Enabled:=false;
end;
for i:=1 to StrToInt(Edrw.Text) do
begin
Timer4.Enabled:=true;
cbData3.checked:=false;
cbStrobe.checked:=false;
Timer4.Enabled:=false;
end;
end;
end.