Nicht nur das, der ganze Code strotzt nur so vor doppelten Sachen, z.B.
Delphi-Quellcode:
hour := trunc(Taktimpuls);
minute := round( (Taktimpuls - hour) * 6/10 * 100);
Darstellung := EncodeTime(hour, minute, s, ms) ;
Wieso rufst du das ganze x-Mal auf?
Einmal reicht doch, ist ja immer das gleiche.
Lager das doch in eine Funktion aus, die du einmal aufrufst.
Sonst bekommst du das Problem, dass du zig Zeilen gleichen Codes ändern musst, wenn du mal etwas an der Berechnung verändern willst....
Ich glaube, den Code könnte man durch Arrays, oder sei es nur, die Labels durch deren Tag-Wert zu suchen (anstatt auf Fr_1_Impuls_1, Fr_1_Impuls_2 usw. zuzugreifen), auf ein paar Zeilen strippen