Hallo zusammen,
also ich hab nicht mehrere Timer, sondern nur einen... die zweite
Zeitschleife mach ich über Delay. Und genau um diese Zeit hängt
der Timer. Hier mal Codeschnippsl...
Delphi-Quellcode:
procedure TMain.StrListTimerTimer(Sender: TObject);
var i,k : Integer;
begin
L.LoadFromFile('SC11_ROT ROT 100 F1.dat'); // hier ist ein Fade von 1 Sekunde eingetragen
for i:=0 to 479 do begin // hier gebe ich die DMX Daten (Kanäle raus)
dmxalt[i]:= dmxout[i];
dmxneu[i]:=StrToInt(L.Strings[i]);
end;
// HIER BEGINNT DAS PROBLEM....
// Um diese Delaytime verschiebt sich die Zeit
// Wie krieg ich dieses Delay unabhängig ??
for K:=0 to 100 do begin
Delay(Trunc(StrToInt(l[481])/100));
for I:=0 to 479 do //nach von
DMXOut[I]:= Trunc((dmxneu[I] * K + dmxalt[I] * (100-K))/100);
end;
If Zahl < DMXList.Count-1 then begin
Inc(Zahl);
StrListTimer.Interval := StrToInt(Copy(DMXList[Zahl],1,Pos(',',DMXList[Zahl])-1))-StrToInt(L[481]); // Hier hol ich die neue Zeit für die nächste DMX-Scene
end else begin
StrListTimer.Enabled:= False;
l.Free;
end;
Hat bitte jemand irgendwie paar Zeilen die mir helfen könnten? Ich hab keinen Ansatz, wie ich das angehen soll... Bin echt dankbar für jede Hilfe...
Gruß beanbear