Hallo
,
hast du die Möglichkeit aus denmArray KreuzungInfos[x,y] das ein Array of String zu sein scheint ein Array of Color zu machen, dann könntest du die Farbe direkt zuweisen.
Statt:
Delphi-Quellcode:
if KreuzungInfos[1,3] = 'red' then
LeitrechnerForm.HsNdRShape.Brush.Color := clRed;
So:
LeitrechnerForm.HsNdRShape.Brush.Color := KreuzungInfos[1,3];
Wäre jetzt so meine erste Idee. Oder schau dir mal Case ... of ... end; an. Das vereinfacht deine If-Bedingungen.
MfG
freak