Data is in diesem fall eine Stringliste
Delphi-Quellcode:
for i := 0 to Data.Count - 1 do
begin
i_temp := //temp auslesen
i_time := //Zeit auslesen
i_gesamt := i_gesamt + i_time;
if i_gesamt < FDrawBegin then//Wenn Gesamtzeit unter der angegebenen Startzeit
cl_selection := clblue;//bzw clnone
case {Schrittart} of
0 : if Data[i-1][1] = {Teilprozessanfang} then
AddXY(i_gesamt,i_temp,'',clnone);
5 : AddXY(i_gesamt-i_time,0,'',cl_selection);//Ablassen(TeilprozessEnde)
end;
if {Nicht TeilprozessEnde} then
AddXY(i_gesamt,i_temp,'',cl_selection);
if i_gesamt > FDrawEnd then//Nach EndZeit abbrechen
break;
end;